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Jetzt haben Sie Grund zum Feiern! 
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DAS ABO 


Da fragt zum Beispiel Holger Bauer 
aus Lüneburg: „Liebe Leute vom 
‚Homecomputer‘, ich bin geradezu 
begeistert von Eurer Zeitschriit. 
Habe ein Abo. Wie wär's, wenn Ihr 
einmal ein Software-Abo einführen 
würdet? Das wäre doch toll, solort, 


zu einem günstigen Press, die tollen 


aktuellen Programme zu erhalten!“ 
Wir meinen, recht hat.er, der Holger. 
Nun ist es endlich sowen! „Home- 
computer“ hält das tollste Angebot 
seit der Erlindung der Rechenma- 
schine für Sie bereit: Ein Soffware- 
Abo - für alle Systeme im „Home- 
camputer" — zu einem Preis, der sich 
sehen lassen kann! Das Jahresabon- 
nement (6 Kassetten) kostet ganze 
69,20 DM; für 6 Disketten ım Abo 
zahlen Sie nur 84,90 DM, Na, ıst das 
nichts? Sie bekommen die aktuellen 
Top-Programme sofort [rei Haus. 
Also, Abrufkarte ausfüllen, heraus- 
trennen und an den TRONIC-Ver- 
lag schicken! (Karte auf Seite 41!) 


Ä Ä rg | | 
DIE VORTEILE 
Die Vorteile sind unübersehbar. Mit 
dem neuen Super-Soltware-Abonne- 
ment bekommen Sıe dıe phantastı- 
schen Programme, die die Redaktion 


des „Homecomputer” ausgewählt 
hat, automatisch ins Haus. Geben 
Sie bitte an, welches System Sie wün- 
schen und ob Sie Kasselten oder Dis- 
ketten bevorzugen. Das Kasselten- 
Jahres-Ahbo kostet nur 69,90 DAL für 
die Systeme TI-99, Atarı 500 XL. 
vVC M, Sinclair ZX-Spektrum. 
Schneider UÜPÜ-464 (das Programm 
hei Schneider wird drastisch erwei- 
tert!) sowie VC 64. Für Apple und 
Commodore VÜ 64 haben wir ein 
spezielles Diskerten-Abo für Ste be- 
reit. Das Jahresabonnement kostet 
Sie vanze 84,90 DM. Sie können sich 
selbst ausrechnen, was Sie hierbei 
sparen. Neben viel Geld eben auch 
Porto, Telefonkosten usw., wenn Sie 
eine Einzelbestellung beim TRO- 
NIC-Verlag aufgeben. Also, ran an 


den „Software-Speck"!' Es lohnt sich! 





im Abo! 








DIE GARANTIE 


Klar, daß wir alles tun, um unsere 
neuen Abo-Kunden zufriedenzustel- 
len! So werden alle Datenträger vor 
der Versendung geprüft und durch 
stetige Kontrollen überwacht, das ist 
Ehrensache! Diese Prüfungen betrel- 
fen nicht nur die Beschaffenheit der 
Artikel, sondern auch die Versand- 
tauglichkeit der Verpackungen: Dies 
isı unsere Garantie, um stets „fr- 
sche“ und in einwandfreiem Zustand 
befindliche Ware zustellen zu kön- 
nen. Ähnlich einem Zeitschriften- 
Abo erfolgt die Lieferung frei Haus. 
Jeder Datenträger wird also von uns 
kostenlos „an den Mann gebracht”, 
Beachten Sıe jedoch, daß das Sofiwa- 
re-Abo nicht mit einem Zeitschrif- 
ten-Abo gekoppelt ist! Eine weitere 
Garantie: Sie haben absolutes Rück- 
eaberechı bei defekten Datenträgern. 
Es erfolgt ein kostenloser Umtausch. 
mehr noch: die Zusendung der Um- 
tauschware erfolgt noch am Postein- 
ganestäg: 

Die Software-Abo-Karte finden Sie 
auf Seite #1 
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Infos 
Impressum 
Leserbriefe 


Internationale Computer-$Show in Köln 
Sinelair's Projekt: Ein Flop” 


16-Bit-Lerncomputer mit 5085 ÜPUÜ 
Kennen Sie Zuse? 


ZA-Apecirum: 
Mit Maschinensprache zum Bildschirm - Teil ? 
Ein neuer Star auf dem Druckermarkt 


Software-Champion "85 gesucht! 

Neue Knüller ELCAD und PCA 
Korrektur zum Dragon-Spiel „Smiley“ 
Korrekiur zum VC-30-Game „Fox-Huni“ 


Restabdruck .SOLARIS" für MSX 


Homecomputer-Bücher-Infos 
Kleinanzeigen 
Homer’s Club 
Software 


TOP-PROGRAMM DES MONATS 
Commodore 64 





„Ihe Caves“ 


Gehen Sie - a la 007 - auf die Suche 
nach einem sagenumwobenen Schatz 
in einer gefährlichen Höhle ... 


9 





Apple Il 
„Point Eater* — gehen Sic hungrig ans Werk 
VC-20 


„Collector“ - Egbert im Labyrinth 

„Breakout” - Computersquash 

TI-99/4A 

„Moonlander“ - spannendes Landemanöver 
„Billard“ — das Spiel mit „Elfenbein“ 
ZX-Spectrum 

„Wheelv“ — mit dem Motorrad durchs Gelände 
Dragon 

„DATAGEN" - ein tolles Hılfsprogramm 
MSA 

„Kabbit Walk” - Mit Rudi zur Mühre! 

Atarı 

„Montezumas Rache“ - Achtung gefährlich! 
ZX-81 

„Brte-Suchaktion” = erspart Ärger 

Tips & Tricks 
Zeilen-Delete-Programm für Commodore 64 
Deutscher Zeichensatz für den Commodore 64 


Software-Service 


Kassetien- und Disketten-Yersand 
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Gefährlich ... 


Wlontezumas Rache 





Atari 
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Lustig ... 
Rabbit Walk 
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Leserbrief- 





NEN 





„Auflage erhöhen!“ 
Ich finde Eure Zeitschrii „HOME- 
COMPUTER" ganz toll! Doch, man 
muß sıch bei uns ganz schön beeilen, um 
noch rechtzeitig cin Exemplar zu ergat- 
tern. Der „HOMECOMPUTER“ ist bei 
uns in Langen ziemlich schnell vererif- 
fen, so daß meine Klassenkameraden 
immer von meinem Exemplar abkopie- 
ren müssen. Was kann man tun, um die 
Auflage zu erhöhen? 

Andreas Möller, Langen 
Antwort: 
Zunächst einmal herzlichen Dank, An- 
dreas, für Dein Kompliment an den 
„HOMECOMPUTER“! Zur Frage der 
Erhöhung der Auflage ıst zu sagen, daß 
wir stets nach Bedarf versuchen wer- 
den, ja. müssen -— mehr Magazine zu 
vertreiben. Der „Run“ aufden „HÖME- 
COMFUTER* ist uns schon seit einiger 
Zeit bekannt. Wir können jedoch nicht 
verlundern, daß Euch das Magazin von 
anderen „Liebhabern“ wegseschnappf 
wird, Zu gegebener Zeit wird die Auflage 
sicherlich erhöht. Aber, wie wär's mit 
einem Abo? Ohne übertriebene Wer- 
bung für den „HOMECOMPUTER“ zu 
betreiben, so würde sıch ein Abonne- 
ment, falls man eh regelmäßie das Hefi 
erwirbt, anbieten. Die Probleme wären 
somit gelöst. Überlegt es Euch einmal! 


Mißverständisse ... 
Ich kaufe Eure HÖMECOMPUTER 
schon seit geraumer Zeil und muß sa- 
gen, sie isı einfach spitze. Was ich je- 
doch nıcht so gut finde, ısı Eure Aktion 
„Fehlerhaftes Listing“. Ich bin zwar ein 
begeisterter Computer-Freak aber eben 
auch erst Anfänger. Deshalb entdecke 
ich die Fehler noch nicht. Könnt Ihr 
keine Andeutungen machen; in welchen 
Listings Fehler sind? Ich wäre Euch sehr 
dankbar dafür! 

Peter Will, Frankenthal 
Antwort: 
Lieber Peter! Vielen Dank für die „Blu- 
men"! Auch wır finden den HOME- 
COMPUTER spitze, wie sich „Häns- 
chen“ Rosenthal ausdrücken würde, 
Ebenso dankbar sind wir über die Frage 
zur Aktion „Fehlerhalles Listing“, 
Denn: Sie gibt uns die Möglichkeit zu 
cıner Klarstellung eines Mißverständ- 
nısses. Die Aktion „Fehlerhafies Li- 
sting“ Ist kein Spiel oder Quiz, welche 
der Unterhaltung dient. Wir haben diese 







Aktion eingeführt. um eventuelle 
Fehler, die in den Listings auflau- 
chen, zu.erkennen und bitten un- 
sere Leser, uns dabei behilflich zu 
sen. Als „Finderlohn“ winken 
den „schnellsten“ Zusendern je 
00 Mark. 


„vlehr Schneider“ 
Ich möchte Ihnen mitteilen, daß mır Ihr 
HÖMECOMPUTER und Ihre COM- 
PUTRONIC sehr gut gefallen! Das cin- 
zıgsie, was mir nicht gefällt, ist, daB Sie 
für den Schneider CPC-464 nicht so gute 
Spiele, wie z. B. dreidimensionale oder 
Action-Spiele, abdrucken, und daß mei- 
stens nur ein Spiel - ım Vergleich zu 
anderen Computer-Systemen — vorge- 
stellt wird. Deshalb wollte ich Sie bitten. 
etwas mehr Spiele zu publizieren ... 
Oliver IImer, Hamburg 





Antwort: | 
Immer wohltuend zu hören, daß unsere 
Zeitschriften HÖMEÜOMPFLTER und 
COMPUTRONIC bei den Lesern gut 
ankommen. Zur „Schneder-Frage*: 
Auch die Redaktion ist sich bewußt 
über dıe, sagen wir, „Unterversorzung" 
von Schneider-Proerammen und -Soll- 
ware in unseren beiden Helien. Aus die- 
sem Grunde wird auch ın allernächster 
Zeit das Programm für den Schneider 
CPC-I464 drastisch erweitert werden. 
Wer aber „in der Zwischenzeit” mehr 
über Schneider-Sollware  erlähren 
möchte, dem seı die Zeitschrilt COM- 
PUTE MIT ans Herz gelert, Erscheint 
monatlich für 280 Mark. 





VC-W weiter „gelragt* 
Ich finde sehr gut, daß der VC-30 im 
HOÖMECOMPUTER nicht vergessen 
wird, obwohl sein Verkauf nun schon 
seit fast einem halben Jahr eingestellt 
wurde, Solange sıch das nicht ändert 
und auch dıe Preise aufeinem vernünf- 
tigen Niveau bleiben — beides hoffe ich 
natürlıch sehr — bleibe ich ein treuer 
Leser. Albert Belzl. Neumarkt 
Antwort; 

Nun, Sie haben recht. Der VE-20 wird 
seit geraumer Zeit nicht mehr produ- 
ztert. Da aber der VC-20. der „erste 
Homecomputer”, noch ın vielen Haus- 
halten zu finden ıst, sehen wir von der 
HOMECOMFUTER-Redaktion  kei- 
nerlei Veranlassung. den VC-20 sowie 
soltware dafür „zu vergessen“. Vielen 
Dank, treuer Leser! „Ihre treue Redak- 
ton“! 


Betr. „Leserbriefkasten® 
Daß sich Leser beschweren, es glibe zu 
wenige Infos. verstehe ıch nicht und 
muß. dem stark widersprechen. Mit vier 
Seiten ın der Ausgabe 5/85 reicht dies 
völlig aus. Den Leserbriefkasien müssen 
Sie weiterhin erhalten. Nach Möslich- 
keit um mindestens eine halbe Seite er- 
weitern, Ansonsten bitte ich Sie, Ihr 
Konzept beizubehalten. Es gefiel mir be- 
sonders das Titelblatt der HOMECOM- 
PUTER-Ausgabe 5/55. Dieses ist das 
Titelbild des Jahres 1985. Auch finde 
ich die Bilder und Zeichnungen super, 
Ich glaube, eine Spielszene mit Bildern 
darzustellen, erfreut viele. Des weiteren 
geiilli mir. die Bücherkiste mit zwei Sei- 
ten recht gut. Schon drei Bücher habe 
ich mir daraufhin gekauft und war sehr 
zufrieden. 

Niels-Peter Seefeld, Norderstedi 
Antwort: 
Der sute Niels-Perer „bombardiert“ uns 
förmlich mit Komplimenten (die wir 
natürlich gern hören), Um nur einizes 
aufzuereifen: Bitte haben Sie Verständ- 
nıs dafür, daß wır auch Leserbriefe .ab- 
drucken, deren Inhalte sowohl nıcht un- 
bedingt unsere wie die Meinung der Ge- 
samtzahl der HOMECOMPUTER-Le- 
ser widerspiegeln. Dennoch meinen wir, 
auch Beschwerden, negative Kritik usw. 
publizieren zu müssen. Denn: Kritik, 
egal, in welcher Form. ist Immer ein 
Vertrauensbeweis. Kritik hilft, etwaige 
Fehler auszumerzen oder sich Gedan- 
ken über eine Modhlizierung des Kon- 
zeptes zu machen. Zum „Prädikat Titel- 
blatt des Jahres 1983": Es hart uns schr 
gelreut. daß Ste uns (bereits im JuniJu- 
li) diesen „Oscar“ verliehen haben. Wir 
werden uns werlerhin bemühen, eine 
optisch attraktive Titelseite zu kreieren. 
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Zeilen-Delete-Programm 





Wenn man größere Teile aus einem al- 
ten Programm in ein neues übernehmen 
will, steht man vor der Wahl, diesen Teil 
wieder ganz neu einzugeben oder müh- 
sam alle nicht gebrauchten Programm- 
zeilen des alten Programmes einzeln zu 
löschen, Die Zeilen-Delete-Funktion er- 
laubi es, beliebig viele Programmzeilen 
mit einem Befehl zu löschen. 

Tippen Sie zunächst den Basic-Loader 
ein, und speichern Ste ıhn dann sicher- 
heitshalber einmal ab. Nach dem Star- 
ten meldet sich der Loader nach kurzer 
Zeit mit der Frage, ob das reine Maschi- 
nenprogramm auf Disketie oder auf 
Kassette abgespeichert werden soll (un- 


a Iıps + Tricks. 


ter dem Namen Zeilen-Delete). Nach 
dem Abspeichern des Maschinenpro- 
erammes wird der Loader nicht mehr 
gebraucht, Benötigen Sie die Zeilen-De- 
lete-Funktion, so laden sie mit LOAD 
“ZEILEN-DELETE*,8,1 ein und 1ö- 
schen die nicht benötigten Programm- 
zeilen mit SYS 49152, Anfangszeile - 
Endzeile. 
Beispiele: 
51549152. 30-70 löscht alle Pro- 
grammzeilen, 
von eıinschlieB- 
lich 30 bis ein- 
schließlich 70 
löscht alle Pro- 


5YS 49152, 4400- 


ee 64 





grammzeilen, 
von einschließ- 
lich 4400 bis zum 
Ende 
löscht alle Pro- 
erammzeilen, 
vom Anlang an 
bis einschließlich 
Zeile 132 
löscht das gesamte 
Programm 


SYS 49152,-132 


57549152, 


Achtung: Die ersten 3 REM-Zeilen des 
Basic-Loaders dürfen beim Einlippen 
nıcht fehlen, da sie den Namen des Ma- 
schinenprogramms enthalten! 





10 REM 
15 REM 
REM 
REM 
REM 
55 REM 
REM 
REM 
REM 
REM 
REM 
REM 
70: 

75 7 


EINGABEFORM: 


ee ee 


IFP=223496G0T0100 
FRINT"EFEHLER IN 


ZEILEN-DELETE-UTILITY 
5y549152,AZ-EZ 


1985 BY DANIEL DURSTEWITZ 
REICHENBERGER STR.26 
4450 NORDHORN 
TEL. 059217792008 


DEN DATAS! 
PRINT"SIE DIE ZEILEN 





Ed Ed EZ ud od Er al de En Eu 0S ud 02 0 ZZ 2 0 E06. 


z4ksk4 HH * 


Eu le de Ed EEE Eu Sud SL Ö 2 22 020027 


FORT=471527T0495316: READA: POKET „A: F=fP+A: NEXT 


BITTE UEBERFRUEFEN" 


140-155 NOCH EINMAL!":END 
' FRINT'"ESOLL DAS FRÜGRAMM AUF SHDBISKETTE ODER" 
INFUT"AUF SREBMASSETTE ABGESPEICHERT WERDEN"; A# 
IFAF="D" THENPOKE49284 ,8: GOTD125 
IFAF="K"THENFOKE47284 ,1:60T0125 


Ka ee 


Tr ae ee 5 u Ze Te ee = re u ae EN r = 


ut wer j . 


En 


BE 


a en ar 
euer as 


a5 me urn 
Br = 
en 


GOTOLOO 
SYS492B3:END KA 
130 : MN] 
135 : Kl 
DATA32,253,174,32,107,169,32,197, 166,165, 75,133, 251,1685,968,133, 252,169 
DATA171,32,255,174,32,107,159,165,20,5,21,208,21,165,46, 133,76, 166,,45 

DATAZZ4, 2, 176,2, 198,96,202,202,134,95,160,0,75,69, 192 „32,19, 1656,160,0 

; DATAL77 ,95,72,200,177,95,133,768,104,133,95,136, 165, 252,197,976,240,3,144 

DATA7 ‚96,165, 251,197 ,95, 176,249, 165,95, 197, 45, 208, 6,165,96,197,46,240 
DATALB,177,95, 145, 251,230 251,208 ,2.230 ,252 ,230,,95, 208,230 ,230 ,96, 208 
DATA225,165,251,133,45,165,252,133,45,32, 76,166, 32,51,165,75,174,157 

150: 

RER SAVE-ROUTINE 


DATA162,1,160,1,32,196,255,169,13,162,90,160,8,32,189,255,169,0,133,251 
DATAL6®, 192,155, 252,169 „251,162, 131,160,192,32,221, 245,96 
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Aus Köln berichtet unser Redaktionsmitglied Siegfried Görk 
Internationale Computer-Show 
1985 in Köln 





Bereits am ersten Tag der „Lompulcr- 
Show "55 in Köln war das Team des 
„HÖMECOMPUTER" mit von der 
Partie. Was wır dort in Erlahrung 
bringen konnten, faßt Siegfried Görk für 
unsere Leser kurz Zusammen, 

Schon während der ersten Messestun- 
den herrschte an fast allen Aussteller- 
ständen eın reger Publikumsandrang. 
wobei besonders auffällige war, daß bei 
den Besuchern alle Berußsgruppen und 
alle Altersgruppen - von 8 bıs 75 Jahren 
- vertreten waren. Die Veranstalter wa- 
ren’s zufrieden, die Anbieter itberwältigt 
und die Besucher hatten ihre helle Freu- 
de an den zahllosen Innovationen, die 
auf der Kölner Messe feilgeboten wur- 
den. 

Nach der „Hannover Messe“ mit zahl- 
reichen Neuheiten auf dem Computer- 
Markt, war in Köln von vornherein 
kaum mit entscheidenden Meuvorsiel- 
lungen zu rechnen. Diese Erwartung be- 
währhenete sich auch dann bereits nach 
einem ersten Messeüberblick. 

Neben zahlreichen namhaflen Ausstel- 
lern, wie beispielsweise Wang oder 
Commodore, bestimmien vor allem 
kleinere Aussteller und Zuhelerfirmen 
das Bild dieser Computer-Show. Beson- 
ders zahlreich vertreten waren dabei Zu- 
lieferfirmen, die sich auf eine Erweite- 
rung des Angebots bcı Schneider-Com- 
putern spezialisiert haben. 

Ein weiterer Schwerpunkt der Messe be- 
stand in einem quantitäismäßig breiten 
Angebot der Sollwarefirmen. 

Als besonderes Merkmal ısı noch fol- 
gendes festzuhalten: Erst bei einer Com- 
puter-Messe wurde dem Bereich der Da- 
tenfernübertragung eine eigenständige 
Sonderabteilung zugestanden. Diese 
Maßnahme der Kölner Messcegesell- 
schaft ist ein Indiz für die immer größer 
werdende Bedeutung dieser Kommuni- 
kationsmöglichkeit. Auch die Bundes- 
post hat diese Entwicklung scheinbar 
erkannt, neben dem WDR-Computer- 
club, wies die Bundesposi mit ihrer 
DFUÜ-Vorstellung, die mit Abstand 
größte Ausstellungsfläche auf, Die Köl- 
ner Computer Show "85 wurde Ihrer 
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Vorankündigung 
„Die große Messe 
für kleine Com- 
puter* durchaus 
gerecht. Das Aus- 
stellerangebot 

umfaßte die ge- 
samte Computer- 


paletie für den 
Berufg-,  Haus- 
und  Hobbyee- 


brauch und besaß 
damit eindeutige 
Parallelen zur 
Computer-Schau 
Dortmund im 
März dieses Jah- 
res. Bemerkens- 
wert ıst auch die 
Tatsache, daß ın 
zunehmenden 
Maße etablierte 
Firmen dem &x- 
pansionsfähigen 
Feld der Daten- 
fernübertragung 
Rechnung lragen, 


Sinclair’s 
Projekt: 
Ein Flop? 


Sir Clive Sinclair’s Computer haben sich 
durchgesetzt, den Markt mit qualitativ 
hochwerligeen „Maschinen® geradezu 
überhäufti, Weniger Glück scheint der 
„Allround-Erlinder* mit seinem neuen 
Projekt zu haben: Sinclamr’s „U 3° - eın 
durch Elektromotor angetriebenes 
„Dreirad“ — wurde kürzlich von einer 
britischen  Verbraucher-Organiısation 





(Which?) getestet. Was dabei heraus- 


kam, war für den so erfolgsverwöhnten 
„Inventer* wohl ein Schlag ın die Ma- 
gengrube, 
„Which?“ Gefährt 


bereichnete sein 
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Zahlreiche Besucher, großes Interesse und tolle 
Stimmung: Die „Kölner Computermesse“ war 
ein voller Erfolg. 


(M. K./Foto: Görk) 





nicht nur als höchst gefährlich und ver- 
kehrsuntauglich, es sei auch einfach zu 
stehlen. Ein weiterer Kritikpunkt: Die 
von Sir Clive angegebene „Reichweite“ 
des Gefährts von 35 km pro aufgelade- 
ner Batterie konnte von „Which? nichi 
bestätigt werden. Beim Test kam man 
nur auf 22 km. 

Weiter heißt es im Report: „Die Ver- 
kehrssicherheit des Fahrzeuges ist nıchi 
schr gut. Der Fahrer befindet sich in 
Höhe der Stoßstange, so daß die Verlet- 
zungspefahr bei einem Unfall schr hoch 
einzuschätzen 151.” 

„Sinclair Wehicles® meinte dazu: ‚Sci 
der Zeit, in der wir unser ‚Dreirad' gete- 
stel hatten, gab es unseres Wissens ledie- 
lich zwei leichte Linfälle. Bas Positive 
beim ‚Sinclair Trike‘ überwiegt. Daß die 
Batterien verschiedene Leistungen 
bringen, ist klar. Vieles hängt von Wind, 
Gewicht und den Außentemperäturen 
ab.” (M.K.) 
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mit 


16 Bit Lerncomputer 
8088 CPU 





Die Firma Multitech baut ihre MPF- 
Familie weiter aus. Neben der Z30 CPU 
im MPF-I und MPF-| Plus, der 6502 
im MPF-1/65, gibt es jetzt. den ersien 16 
Bit Lerncomputer, den 


MICRO-PROFESSOR 1-88. 


Ein preiswerter Lerncomputer mit der 
2088 CPU von Intel zum Preis von 1030 
DM + MwSt. 

Das nur 30x 30 cm eroße Gerät, das dıe 
Fırma Bardehle Electronic aus Salzkol- 





ien vertreibt, bietet einen praxısberoge- 
nen Einstieg in die Welt der 16-Bitter. 
Der MPF 1-88 wendet sich besonders 
an Interessenten. die die Hardware eines 
I& Bit Rechners und dessen Assembler- 
sprache kennenlernen wollen. Er stellt 
damit ein ıdeales Lehrmittel für den 
Einsatz in Schulen, Seminaren, Work- 
shops und Ausbildungsinstituten dar, 

Das Betriebssystem kann als außerge- 
wöhnlich leistungsstark bezeichnet wer- 
den. Neben den Funktionen Anzeigen. 
Löschen, Einfügen von Daten ın Speı- 
cher und Register, sind eın Zeilenassem- 
bler,. ein Disassembler und ein Debugger 
vorhanden. Die Funktionen des Debug- 
gers umfassen Einzelschritt, Breakpoint, 
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Suchen von Zeichenfolgen u.a. m. Mit 
diesem Betriebssystem ıst es möglich 
Assemblerprogramme für den 5058 zu 
entwickeln, auszulesten und in ein 
EPROM zu brennen. Der MPF 1-88 ıst 
damit cin portables Entwicklungssystem 
für 8085 Assembler Programme. 

Die Hardware besticht aus einem form- 
schönen Gehäuse, mit abnehmbaren 
Deckel. Hier haben Sie nun uneinge- 
schränkt Zugriff auf die Haupiplatine. 
Das Herz der Platine ist die Intel 5085 
CPL mit 4,77 MHz Taktfrequenz, mne- 
monic-kompatibel zur 8086 CPU, Der 
Speicherbereich beträgt in der Grund- 


ausstattung 4 k RAM und 16 k ROM 
und kann auf24k RAM oder 45 k ROM 
auf der Platine vergrößert werden. Als 
Anzeigeeinheit dient ein LÜD-Display 


mit 20 Zeichen und 2 Zeilen. Bei der 


Tastatur handelt es sıch um eine ASCI- 
Tastatur mit dem OWERTY-Standard. 
An externen Schnittstellen sınd vorhan- 
dien: Cassetten-Interface, Centronics In- 
ierface für Druckeranschluß, eın Laut- 
sprecher und ein Erweiterungsstecker 
62-pın TBM-PC-kompatibel (siche Zu- 
behtr). Auch der Neizadapter gehört 
zum Lieferumfang. 

Die Dokumentation umlaßı 3 Handhbü- 


cher (z. Zt. in Englisch} und ısı einfach | 


eenug für Anfänger und technisch ausge- 





| Konrad Zuse. einer der Väter des 


der Welt mit Programmsteuerung. 
Ein Team des Studios Kassel des 


| spräch auch die Grenzen, die Chan- 
een und die Gefahren des Compu- 









reift für den Ingenieur. Die Handbücher 


umfassen die Betriebsanleitung mit ein- 
fachsten Erklärungen und Beispielen für 
den Einsteiger bis hin zur vollständigen 
Dokumentation in Hard- und Software 
(Logikplan und kommentiertes Moni- 
tor-Listing in Mnemonic). Ein weiteres 
Handbuch, das Experiment-Handbuch, 
führt Sehritt für Schritt in die 8085 As- 
semblersprache und deren Program- 
miertechnik eın. 

Das angebotene Zubehör ist reichlich: 
BASIC-Interpreter und ein FORTH- 
Language-RÖM, TWO-PAS5-Assem- 
bler mi Editor, Thermodrucker, 
EPROM-Programmer und einer Härd- 
ware-Expansion-Einheit. Diese Einheit 
besteht aus 3 IBM-PÜ kompatiblen Er- 
weilerungssteckern (62 pin slois) und 
einem 40 pol. Stifistecker für die MPF- 
I-Familie, Mit dieser Einheit können 
Erweiterungskarten zum IBM-PC ange- 
schlossen oder getestet werden. 


Kennen Sie 





„Zuse?” 





Computers, feierte in diesen Tagen 
seinen 75. Geburtstag. 

Rereits 1941 baute Zuse den ersten 
funktionsfähigen Rechenautomaten 






Hessischen Rundfunks hatte Konrad 
Zuse in Hünfeld (Mittelhessen) be- 
sucht und ihn zum Thema „Compu- 
ter -— mein Leben“ befragt. Im Ge- 
spräch mit Kurt Morneweg berichte- 
te Prof. Konrad Zuse über den Bau 
seines Computers, über die Hoflnun- 
gen und Enttäuschungen bei dieser 
Arbeit. 

Konrad Zuse umnß ın diesem Ge- 


ters, Das Interview mit einem der 
Pioniere des Computers wurde am 
Mittwoch, dem 12. Juni, innerhalb 
der Sendung „Schwerpunkt“ ın 
„Hessen Drei” gesendet, (M. K.) 
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Im letzten Heft haben wir gelernt, wie 
man mit Hilfe von Rom-Routinen Zeı- 
chen auf dem Bildschirm darstellen 
kann. Wer das kurze Beispielprogramm 
eingegeben hat, wird bemerkt haben. 
daß die Ausgabe immer in der augen- 
blicklich aktiven Bildschirmfarbe er- 
folgte. Wie lassen sich nun die Farben 
beeinflussen? Zum Ausdruck verwand- 
ten wir die RST ID (10 hex 16 der) 
Routine. Der Code des auszugebenden 
Zeichens wurde in das Register A gela- 
den. Wir können aber auch die Steuer- 
Codes ausgeben, gefolgt von der Farb- 
nummer. 

Die Farbsteuercodes sınd: 


Dez Hex Bedeutung 
I6 10 INK 

17 11 PAPER 

15 12 FLASH 

19 13, BRIGHT 
20 14 INVERSE 
21 15 OVER 


Nehmen wir also das Beispiel aus dem 
letzten Heli 
3E. 02 LDA2  Bildschirm- 
kanal seizen 


CDoDl 16 CALL 1601 


06 18 LBEBIS PRINT-Posi- 
tion setzen 

0E 21 LDC2 

CD D9 0D CALL 

DD 

3E 10 LDA 0 Sieuerzeichen 
für INK 

D7 EST 10  Auspeben 

3E 02 LDA2 Farbe Rat 

57 RST lÜÖ Ausgeben 





ZX-Spectrum: Mit 


Maschinensprache 


zum Bildschirm Ga? 


3E 41 LDA4I Code für A 

D7 RSTIO  Ausgeben 

CH RET Zurück zu 
BASIC 


Nach Ablauf des Programms steht der 
Buchstabe A in Rot an Position 0.0. 
Experimentieren Sie ruhig mit dem 
Farbwert und verwenden Sie auch ande- 
re Steuerzeichen. Sie werden schen, wie 
einlach der Umgang mi dem Bild- 
schirm ist. Sie können auch weitere 
RST I0U-Befehle an das Programm an- 
hängen. die neuen Zeichen erscheinen 
jeweils rechts vom letzten Zeichen: ge- 
nauso, als hätten Sie ın einem PRINT- 
Kommando ein Semikolon eingefügt. 
"och zwei nützliche Adressen im Um- 
sang mit dem Bildschirm 
CALL 0OD6B Löscht den Bildschirm 
CALLÖDFE Scrolli den Bildschirm 
nach oben 
Bei beiden Routinen brauchen keine 
Daten angegeben werden. Vom BASIC 
aus können Sie mit: 
RANDOMIZE USER 3435 
RANDOMIZE USR 358? 
gestartet werden. 
Kommen wir nun zur Graphik. Punkte 
können Punkte auf'den Bildschirm plot- 
ten, indem Sie eine Routine bei 22E3 
Hex 50933 DEZ verwenden, Vor Anwen- 


dung der Routine müssen die Register B 





und C mit den X, Y-Koordinaten gela- 
den werden. 


Register B Y-Koordinate (0-175 
dez) (l-AF hex) 
Register C x-Koordinate (0-225 


dez) (O-FF hex) 
Um einen Punkt in der Mitte des Bild- 
schirms zu setzen, können wir folgendes 
Programm benutzen: 


06 55 LOB 55 Y-Koordinate 
DE 80 LDC 80 *%-Koordinate 
CDE522 CALL 22ES5 Punkt plotten 
c9 RET 


Lim Punkte zu löschen, bieten sich zwei 
Möglichkeiten an. Erstens: Sie verwen- 
den OVER 1. Das kann durch Einfügen 
des Befehls: SET O (IY4+8 7) erreicht wer- 
den. Zweitens: Sie verwenden INVER- 
SE 1. Der Befehl hierfür lautet: SET ? 
(1Y+87). Beide Befehle können jederzeit 
aufgehoben werden, indem man die ent- 
sprechenden BITs zurücksetzt; also RES 
0 (PY+87) und REES 2 (Y487}. 


Inserieren im 
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stets ein ERFOLG! 





Der TCS-Computer erreichte seit seiner 
Vorstellung eine unerwartet eroße 
Marktakzeptanz. Der 9-Nadel-Matrix- 
drucker prinistiar ii besitzt für seine 
Preisklasse (empf, VK DM 995,00 inkl. 
Mwöt.) recht ansprechende Leistungs- 
merkmale: 

Neben einer Druckgeschwindigkeit von 
120 Zeichen’/Sck, bietet das Gerät zwei 
wilhlbare Zeichensätze (ASCH und 
IBM), einen Schönschrifimodus (NLO) 
bei verschiedenen Schriflarten (über 500 
Schriftkombinationen sind möglich). 
Proportionalschrift, $chubtraktor, da- 
her kein Papierausschuß, Änderung der 
Druckgeschwindigkeit und volle Plott- 
fähigkeit (Walzenrückiransport). Die se- 
rienmäßige Parallelschnittstelle gehört 
ebenso zum Lieferumfang wie auch ein 
ausführliches. deutsches Druckerhand- 
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en 


ner Einführung ın das Druckerhandling, 
Mit den Bezeichnungen printstar 10011) 




















buch mit Anwendungsbeispielen und ei- und 150 (i) leistet der Drucker 180 Zei- 


Ein neuer Star auf de 





chen’Sek. und kann ın der 136 Zeichen- 
breite (DIN-A4 Querformat) geliefert 
werden. 
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super! u 


Per Raketenstart ins große Abenteuer .... 


besser auf die 


„IHE CAVES“ ist ein 


Spiel der Spitzenklasse! 


Sie, der Spieler/die Spie- 
lerin haben vom sagenum- 
wobenen Schatz in den 
Höhlen der CAVES ge- 
hört. Klar, daß man die- 
sem Abenteuer nicht wi- 
derstehen kann. Deshalb 
machen Sie sich auf den 
schnellsten Weg zu den 


| Höhlen. Doch: Vorsicht! 
ı Die Wände der Höhlen 


sind mit einer unbekann- 


ten und hochgiftigen Flüs- 


sigkeit benetzt. Berühren 
Sie diese nicht. Am be- 
sten, man besorgt sich ei- 
nen hypermodernen Rake- 
tenrucksack, mit dem Sie 
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„Machen Sie sich keine Sorgen. 
Das wird schon wieder. Doch 
beim nachstenmal achten Sie 


CAVES-Bewohner!” 


* j 
| 
e H 1 Y 
| 6 


| ! 
ILL er | 
u 










EEE — 


u Alk Lı Dre 


durch die verschlungenen 
Wege der CAVES sicher 
durchkommen ... 

Nachdem Sie in die CAVES eingedrun- 
een sind, schnallen Sie sich den Rake- 
tenantrieb auf den Rücken und starten 
zur „Reise in das Unbekannte“. 

Ihre Aufgabe ist es, in mehreren Schwie- 
riekeitsstufen durch die sechs verschie- 
denen Teilabschnitte der CAYVES zu 
kommen, Sammeln Sie dabei so viele 
Schätze auf, wie Sie nur können, Diese 
„Aktionen“ werden mit Punkten be- 
lohnt! 

Aber bitte, nehmen Sie sich ın acht vor 
den Bewohnern der Höhlen! Eine Be- 
rührung mit Ihnen bedeutet für Sie die 
schlimmsten Verletzungen. Berühren 
Sieauch aufkeinen Fall die Höhlenwän- 
de! 


— 1 aus: ä 
u, ; 





Je höher der Level-also, je weiter Sie in 

das Innere der CAVES eindringen, um 

die Schätze zu bergen — desto gefährli- 

cher wird Ihr Unterfangen, Denn: Die 

wütenden Angreifer werden immer 

agpressiver und gefährlicher, diese wol- 

len Ihre uralten Kleinode vor Eindring- 

lingen wie Ihnen schlltzen bzw, verteidi- 

gen. 

Übrigens: Zu Ihrer „Beruhigung“, im 

Level 1 sind noch keine Bewohner in 

den Höhlen. Erst später treflen Sie auf 

die. seltsamen Wesen der „Dritten 

Ar“! (M. K.) 
kıkxk 

Steuerung: 

Joystick in Port 2 

einfach die Richtung 

= langsame Bewegung 


Bitte umblättern! 
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Jetzı haben Sie das Spiel in einem 
Stück auf Ihrem Dateniräger. 
d) wenn Sie jetzt noch einen Fehler ent- 
decken, wie bei c) verfahren. 
Diese Verfahren der vielen kleinen Li- 
stings werden deshalb angewendet, da- 
mit später beim Spielen kurze Ladezei- 
ten und vor allem kein zeitraubendes 
Einlesen von Datas im fertigen Spiel 
abzuwarten sind. 


eingeben — testen — abspeichern 

b} wenn alles funktioniert, der Reihe 
nach laden und starten und danach 
Listing Nr. 7 eingeben — testen und 
abspeichern. 

c) wenn alles zufriedenstellend läuft, la- 
den Sıe die Listings der Reihe nach ın 
den Ü-64, und starten sie. Nach Laden 
von Listing Nr. 7 geben Sie eın: 


= schnelle Bewegung 

fl= Mesik an oder aus 

3= Pa=se an oder aus 

Ines =ar soweit das wichtigste zum 
Spaß beim Punktesammeln! 
Hier soch ein paar Tips zu den Listings: 
Geben Sie beim Eingeben folgenderma- 


a as far 


Feuer ples eine Richtung 
Seel Veil 


Ben vor FOKE 45,0: POKE 46,56: SAVE 
„IHE CAVES“, 8 oder ‚1. 


u | 


\ Listene 1-6 einzeln, der Reihe nach 










i REM + LISTING NR.1 = 

| 2 REM ## GRAFIK=-ZEICHEN ee 
® > REM #3 1 
a REM ++ FOR: THE GAME "THE CAYES? tz 

7} 5 REM 33 (6) BY MEB-SOFT 1965 er 
& Ba x B= 

7 = 








i CH 
ı @ 
v 10 FORI=512001051252: READX:POKEL. X:NEXT18Y851200 ı@ m 
20 DATA 120,165,1,72,41,251,133,1,169, 208,133, 3,169, 48,133,5,160,0,1532,2,132,4 , ne] 
& 30 DATA 162,32, 177,2, 145,4, 200,208, 249, 230, 3, 230,3, 202, 208, 242,104, 133,1,173 '® 
20 DATA 24, 208,41,241,9,12,141,24,208,88,96 F 
| 109 READA: IFA=-1THENEND Im 
[4 110 FORJ=0TOT:READB: POKE12288+A%8+J, B: NEXT:GOTOLOO @ Ef 
50001 DATA DO „ 50, #4, 157, 161, 161, 157, 56, &0 : REM "a" | 
5 50002 DATA 1, 127, 115, 115, 127, 99, 115, 115, 0 :REM "A" @ 
50003 DATA 2, 1265, 102, 102, 127, 99, 115, 127, OÖ ıREH "B" en 
50004 DATA 3 „ 4127, 103, 96, 95, 112, 119, 127, 0 +REM "CH | 
* =0005 DATA 4 „ 125, 105, 97, 99, 115, 119, 126, O0 ıREM "D" ı ® 
50006 DATA S ,„ 127, 112, 112, 124, 96, 112, 127, 0 zREM "EN | 
a DATA & „ 127, 112, 112, 124, 96, 112, 112, Q sREM "F" ig 
008 DATA 7 „ 127, 103, 96, 103, 115, 145, 127, 0 :REM Go" 19, 
| =0007 DATA B „ 115, 115, 115, 127, 97, 115, 115, © :REM "HR" 
m. 50010 DATA 9, 28, 24, 24, 24, 24, 56, &0, 0 :REM "I" ® 
| =0011 DATA 10 „ 14, 12, 12, 12, 12, 108, 124, 0 REM "J" 
ii: 50012 DATA 11 „ 115, 119, 126, 124, 110, 117, 115, O:REM"K" 
Ze 7 50013 DATA 12, 75, 96, 95, #76, 112, 112, 126, 0  ıREM "L" & 
z0014 DATA 13 ,„ 99, 119, 127, 107, 97, 115, 115, 0 ıREM "M" ' | 
'® 50015 DATA 14 „ 102, 118, 1264, 126, 110, 118, 118, O:REM"N" '@ 
j 5015 DATA 15 ,„ 127, 99, 99, 99, 115, 115, 127, 0 :REM "O0" | 
N. =0017 DATA i&., 127, 115, i1S, 127, 96, 112, 112, O:ıREM "P" Be 
we SooiB Data ir , 127, 99, 99, 115, 115, 126, 7,0  :REM "go" ı 
=001F7 DATA-18: , 127, 115, 115, 127, 108, 118, 115, OsREM"R" E 
50920 DATA 19, 127, 115, 112, 127, 5, 115, 127, 0 ıRreMm "Ss" je 
- =21l DATA 20, 125, 24, 24, 24, 55, So, So, OD ısREM "T" erzcl 
| 50022 DATA 21 „ 97, 979, 99, 979, 115, 115, 127, ©  :REM "U" / 
5023 DATA 22, 99, 99, 99, 115, 115, 54, 28, 0 ıREM "V* @ı 
0024 DATA 235 , 97, 997, 97, 107, 127, 119, 99, 0 :REmM "We | i 
= =@w025 DATA 24 „ 99, 119, 62, 28, &2, 119, 99, O ıREM "x" ie 
Ye =o024 DATA 25, 102, 102, 192, 580, 24, 24, 24, 0  :zREM "Wi" ec 
n =0027 DATA 26 „ 125, 102, 12, 24, 48, 102, 126, 0 :REM "zZ" ! & 
=0028 DATA 27, 0, 0, 0, 7, 8, 18, 16, 32 :REM "r" @ & 
0023 DATA 28 „ 32, 54, 64, 129, 131, 133, 136, 112:REM "E" 5 
=00530 DATA 29 „ 28, 100, 136, 9, 17, 18, 234, 0 :REM "4" HT 8 
=0031 DATA 30 „ 0, 98, 166, 37, 59, 69, 56, OÖ ıREM "Tr" .B Ei 
=0032 DATA 31 , 0, 113, 146, 228, 8, is, 225, 0 REM "" | = 
50035 DATA 35, 255, 95, 27, 23, ı5, 15, 35, 1 :REM "4" @ = 
5037 DATA Se, 4, 7, 5 ii, St, 31, 79, 255 :REM "$" | = 
SsonT2 DATA 37 „ 128, 192, 180, 248, 240, 232, 254, 255: REM"%" | >= 
50037 DATA 38 , 255, 252, 220, 192, 224, 224, 1972, 128:REM"&" a: 
50040 DATA 39 ,„ 190, 252, 247, 256, 222, 254, 228, 248: REM""" | EL. 
=0041 DATA 40 „ 248, 126, 244, 224, 208, 248, 180, 254:REM"(" a 
50042 DATA 41 „ 239, 181, 215, 255, 205, 247, 202, 187: REM")" 0 
5 50043 DATA 42, 255, 255, 255, 255, 255, 255, 255, 255: REM"R" FE 
u =0048 DATA 47 ,„ 0, 0, 0, 0, 0, 0, 0, 0 REM "/" 9 
| en 
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©. m 
| SO0497 DATA 48, 127, 103, 111, 125 115, 79 127, 0: REM: "0" ’ Mas 
& 50050 DATA 49 4 =1-P 24, 24, 24, 24, = -P 52, Ö . REM "1" las ehr 
| 50051 DATA SO „ 127, 103, 7, 127, 112, 99, 127, O0 :REM "2" 9 m 
| ze 50052 DATA S1 „ 127, 103, 7, .,31, 3, 103, 127, 0 ° REM "zZ" ee 
a 30053 -.DATA: 532 „ 103, 105, 105, 127, 3, 7, 7,0 REM "4" il 11 
1 0054 DATA ba 3 W 127, 115, LIE, 127, 13, FT 127, OÖ: REM Ku ol I | Tot 
I. "O0S5S5: DATA 54... A256, 118, 112, 127, 99, 115, 127, OrREM "6" re Ken 
Mae 50056 DATA 55 „ 127, 99, 99, 3, 7, 7, 7, 0 :REM "7" 0 DE 
Fe „u0S57 DATA 38°, 126, 1IB, 118,. 127, 99, 115, 127, 0REM "8" | ve 
|®ı Sonsa DATA 57 , 127, 99, 115, 127, 7, 55, 65, 6 EREM "a" ' Et 
| | 50059 DATA SS ,„ 2, 142, 221, 251, 239, 247, 251, 255:REM":" il 
| & SO080 DATA SF „ 48, 225, 247, 251, 225, 190, 225, 255:REM";" en je 
| sobal DATA 60 „ 31, 57, 125, 255, 119, 107, 30, SS: REM"<" ı 0 
| E0052 DATA 61 , 119, 53, 39, 15, 63, 123, 253, 31 :REM"=" | Bee 
ii. 50055: DATA 82 ., 225, 259, 255, 253, 219, 207, I34, 4 ıREM">" | r HE 
| S0084 DATA 53 ,;, 239, 2947, 191, 295,-107, 75,: 65,: O zREM "7" le 
a! „oo&a5 DATA 54 af 0, 128,..128, 54, 54, 128, 0 3 REM" ' ‚2 
. Sol DATA 73.24, 30,19, 158, 112,230, 230,96 | 33 af 
| | 50100 DATA-1 | IE: 
Ber ci — 
Ei Kirk +. 
= ; ER 
wo © ,; 20051 DATA 0,240,0,0,8,0,0 1 
= ı © 1 30052 DATA 0,0,0,104,0,0,160 u 
4 LREM 88 LISTING NR-2 | 1.300553: DATA 0,0,44, 176,0, 160,192 ie 
'@ ı 2 REM #: SPRITES © | 30054 DATA 0,197,80,0,72,80,10 re. 
| | 3 REH #8 Rn 20055. DATA 205,64,3,11,128,0,212 @ 
| _ + 4 REM #: FOR THE GAME "THE CAVES’ ‘ 30055 DATA 0,0,148,0,0,80,0 | ie: 
| @ ı 5 REM #8 (C) BY MKB-SOFT 1985 © ; 30057: DATA 0,224,0,0,532,0,0 'u. 
| ‚ & REM 81 er 30058 DATA 0,0,0,44,0,0,8B Me - 
ee | ı 20059 DATA 0,0,12,0,0,0,0 | 31 
| © ı 100 READ SPRITE: IFSPRITE=-1THENZ0O o | 230060 DATA 228 ı REM "MANN PARA2" a. = 
110 FORT=OT062: READX: FOKESFRITEFA4+HT X NEXT 1. 30061 DATA 0,160,0,0,0,0,0 | Bi 
| ; 120 6010100 ‘ 30062 DATA 8,0,0,224,0,0,32 SE 
'® ı 200 EnD m | 39063 DATA 0,0, 204,32,0,40, 192 a 
' 29997 REM. 4 70064 DATA 0.172, 128,0, 168,240, 15 '@ 5 
| ‚ 29998 REM SPRITE DATA STORED FROM HERE | ı 30045 DATA 205, 128,5, 22,128,0,208 Se 
ı® : 29999 REH | m ' 30086 DATA 0,0,128,0,0,0,0 wi 
| ' 30000 DATA. 223 ı REM "MANN SPı" \ı 1.370067 DATA 0,144,0,0,48,0,0 In HH 
| ® | 30002 DATA 8.0.0,148,0,0,160 | m ! 30069 DATA 0,0,12,0,0,0,0 a 
' 30003 DATA 0,0,40,80,0,253,80 | = | 30070 DATA 229 : REM "SCHATZ SPi" ı@ m 
' 30004 DATA 0,205,80,0,205,80,15 i ı 30071 DATA 0,0,0,0,0,0,0 : 1 
ee ı- 30005 DATA:205,54,3,13,54,0,252 | ir ı 30072 DATA 0,0,0,0,0,0,0 I Eis 
ı 30006 DATA 0,0,84,0,0,50,0 “30073 DATA 0,0,0,0,0,0,0 u 
' 30007 DATA 0,80,0,0,16,0,0 ‚. 30074 DATA 0,0,0,0,0,0,0 
© ; 230008 DATA 15,0,0,20,0,0,4 a! 30075 DATA 0,0,0,0,0,0,0 de 
ı 3000°7 DATA 0,0,4,0,0,0,0 ' 30076 DATA 0,15, 255, 248,15,0,24 © 
‘ z0020 DATA 224 : REM "MANN SPZ" 30077 DATA 32,0,56,63,255, 298,63 
& | 30021 DATA 0,160,0,0,8,0,0 30078 DATA 255, 248, 43, 205,248, 43,255 Ur 
ı 30022 DATA 8,0,0,168,0,0,150 © ; 30074 para 240,63, 235, 224,63, 255,172 .® We 
| ' 30023 DATA 0,0,60,80, 0,253, 80 | 30080 DATA'230 : REM "SCHATZ SF2" | = 
© | 30024 DATA 0,205,80,0, 205,80, 15 RO SEIDRTATO NONE v_. 
ı 30025 DATA 205,69,3,13,59, 0,252 © ı 20082 DATA 0,0,0,0,0,0,0 :@ 5 
| ı 30024 DATA 128,0,84,150,0,80,32 . 300835 DATA 0.0.0, 0,0,216, 192 ‘ Feed 
© | 30027 DATA 0,80,32,0,16,0,0 „30084 DATA 0,216, 198,12,217,140,6 | = 
ı 30078 DATA 16, 0,0, 20, 0,0, 4 © ı 30085 DATA 38, 24,6,97, 176,195, 123 ı. 
30029 DATA 0,0,4,0,0,0,0 ' 30086 :DATA 0,111,295,251, 115,226, 27 m 
 ! 30030 DATA 225 :ı REM "MANN SPS" . 4. 30087 DATA 32,32, 56,53, 253,251,171 Ira 
= | 30051 DATA 0,10,0,0,32,0,0 © ı 20088 DATA 255, 251,298, 255,248, 127,255 ‘®@ 5 
| © | 39933 DATA 0,5,80,0,5,127,0 . 30090 DATA 251 : REM "BONUS 'SPI" ib 
, 30034 DATA 5,115,0,5,115, 0,1 ©, 3Z00®1 DATA 0,0,0,0,0,0,0 m m. 
ı 30035 DATA 115,240,1,112,192,0,83 , 20092 DATA 0,0,0,0,0,0,0 Ta 
| 300 DATA 0,0,21,0,0,5,0 L 30093 DATA 0,0,0,0,0,0,0 i 
| m g 30037 DATA 0,3,0,0,94,0,0 B 0074 DATA 0,0,0,0,0,0,0 L 
| ı S0038 DATA 4,0,0,20,0,0,18& 30095 DATA 0,0,0,0,0,0,0 & 
"30039 DATA 0,0,16,0,0,0,0 ; 50095 DATA 0,0,0,0,0,0,0 
> ‚ 30040 DATA 226 ı REM "MANN Spa" ' -30097 DATA 0,0,0,0,0,0,42 ie 
| ı 30041 DATA 0,10,0,0,32,0,0 | ' 30098 DATA 253,80, 40,48, 16, 34,47 37 
1 30042. DATA 32,0,0,42,0,0,10 ‚, 30097 DATA 16,42, 48, 16, 42, 253, 80 
© , 30043 DATA 0,5,60,0,5,127,0 ‘ 30100 DATA 252 ı REM "BONUS SP2" 1.72 
‚ 30044 DATA 5,115,0,5,115,0,1 ‘ 30101 DATA 0,0,0,0,0,0,0 = 
ı 30045 DATA 115,240,1,112,192,2,63 ı 30102 DATA 09,0,0,0,0,0,0 
® | 20046 DATA 0,10,21,0,8,5,0 ı 30103 DATA 0,0,0,0,0,0,0 ' 
ı 30047 DATA 8,5,0,0,4,0,0 ' 30104’ DATA 0,0,0,0,0,0,0 ı 
' 30048 DATA 4,0,0,20,0,0,16 
© | 20947 DATA 0,0,16,0,0,0,0 mE . 
6 


A 227 H REM "MANN FARAL“ 
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30105 DATA 0,0,0,0,0,0,0 


30106 


30197 


S3o108 
30109 
So110 
SoL1l 

Sol12 
59113 
30114 
>0115 
Soll 
SoL17 
SO118 
30119 
30130 
30131 

s0132 
30133 
>c134 


39135 0 


So 
30137 


30138 I 
30139 1 


30140 
30141 
30142 


30143 
0144 
30145 
30145 
30147 
>01 48 
30149 
30150 


30151 


>0152 
30133 
30154 
30159 
30158 


30137 1 


30158 
301537 
So1läd 
Soll 
SOlbz 
sol 
Sul54 
30183 
30166 


30167 | 


30158 
30167 
30170 
S0171 
39172 
35173 
0174 
39175 


DATA 
DATA 
DATA 
DATA 


; DATA 


ı 0,0,0,0,0,0,0 


0,0,0,0,0,0,21 
171,230, 20, 32,98,17,35 


48, 21,32,48,21,171,290 
| 


REM "BONUS Br3" 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 


1 0,0,0,0,0,0,0 


0,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,8J3 

BA, 160,50,16,32,51,18 
32,55, 16,32,53,86, 180 
234 ı REM "TOR" 
0,0,0,2,170,0,2 
234,0,2,94,0,2,250 


1 0,2,74,0,2,250,0 


2,74,0,2,250,0,2 
74,0,2,250,0,2,74 


r- 
‚va 0,2, 250 
‚0,0,0,0 

REH " SKELLETT srl" 
0,56,0,0,84,0,0 


ı 84,0,0,40,0,0,16 


0,0,254,0,33,17,8 
94,124,244,32,14,8,0 
54,0,0,18,0,0,124 
0,0,55,0,0,68,0 
0,58,0,0,130,0,0 
58,0,0,68,0,0,68 
0,1,131,0,0,0,0 E 

235 : REN "SKELLETT SP2" 
0,55,;0,0,84,0,0 
116,0,0,40,0,0,16 


1 0,0,254,0,1,17,0 


1,125,0,1,17,0,1 
=7,0,1,17,0,2,124 
178, 1,57,0,0,58,0 
0,598,0,0,130,0,0 
130,0,0,58,0,0,40 


 0,0,88,0,0,0,0 


>37 ı REM "BLUME SPi" 
Ö, 65,0,0,125,0,0 
50,0,0,24,0,0,12 
0,0,12,0,0,24,0 
0,49,0,0,27,0,0 
142,0,0,204,0,0,108 
0,0,125,8,0, 221,248 
0,140, 240,0, 24, 96,0 

48, 192,0,49,192,0,27 


ı 224,0, 14,32,0,12,0 


238 ı REM "BLUME SP2” 
0,0,0,0,0,0,0 
0,0,0,24,0,0,12 


'0,0,12,0,0,24,0 


0,49,0,0,27,0,0 
14,0,0,12,0,0,12 
0,0,28,0,0,28,0 
0,12,0,0,24,0,0 


4 48, 192,0,49,128,0,27 


224,0,14,32,0,12,0 
237 ı REM "BLUME SP3" 
0; 0,010,0,0, u 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 

’r 9,12, 0,0, 12,0 
0,12,0,0,24,0,0 
48,0.0,49,128,0,27 
128,0,14,0,0,12,0 

240 ı REM "BLUME spa" 
0,0,0,0,0,0,0 
0,0,0,24,0,0,12 


1 0,0,12,0,0,24,0 
: DATA 


0,49,0,0,27,0,0 
14,0,0,12,0,0,12 


12 ui 


aa ee ea ae ea ee ae a aeg 


ee oe 
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,iecUibdnN® 


DATA 0,0,28,0,0,28,0 
DATA 0,12,0,0,24,0,0 

DATA 48, 192,0,49,128,0,27 
DATA 224,0,14,32,0,12,0 


mia 243. 3 


DATA 0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0 
DATA 0,20,0,0,8,0,0 
DATA 28,0,0,62,0,0,193 


DATA 244 2 


129,1,193,192,1,128,192 
0,55,0,0,0,0,0 


[#) 
DATA 0,0,0,0,0,0,0 
IE) 


2,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,1,0 
DATA 64, 1,34,64,1, 136, 192 
DATA 1,201,192,1,227,192,1 


DATA 0,0,28,0,0,8,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 


' DATA 0,0,0,0,0,0 
DATA 242 ı 


REM "BLUME SP4" 


DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 


s DATA 0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,09,0,0 


DATA 241 1 


REM "BLUME:SP3" 


DATA 0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0;0,0,0,0,0,0 

DATA 0,0,12,0,0, 12,0 
DATA 0,12,0,0,24,0,0 
DATA 48,0,0,49,128,0,27 


 128,0,14,0,0,12,0 


akrkr 


LISTING NR.> 
MUSIK-DATA”S 


ı DATA -1 


FOR THE GAME 'THE CAVES’ 
(6) BY MKB-SOFT 1985 


i0°5P.= 199977 


Bo: REM #7 m m m m 


50 REM WERTE EINLESEN 
100 READ DA 


IFDA<OTHENSF=20999: G0T0141 


120 SP=5Ef+tl 
139 FOKESF, DA 
140 GOTO100 


READDA 
IFDASOTHENSO 


143 SF=Sf+l 


43,219.1 


So0o& DATA 48, 118,1 
3008- DATA 39,18,1 

=>010 DATA 35, 225,2 
3012 DATA 34,207, 1 


DATA 32,2197,1 


So1& DATA 34,207,1 


DATA 29,69,1 
DATA 39,18,2 
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REM "FLEDERMAUS SP1" 


REM "FLEDERMAUS 5P2” 


a a ne (a ae m m er m me a am a a TE a men: ul me sm Mn; sam m "m Für Am“ m zu her uf“ m äi” Fän  m he  Hamm M HE oh St a" EM EG N) TEEN EG. am. m m: cm Tamm: man Hm Jh sen am m se ir <A SH <= 


Pr er Var a War Yo Ya VE or Vo To ar Yo ar Yoor voor ur u vr wor er wor | 











EEE en _ Oo mn on 


m — nn. ni un mn m Abe en a ze eu 


© ı 3022 Data 39,18,1 
3024 DATA 36, 225,1 





4032 DATA 29,597,1 


Susl DATA 34,207,1 
Ssobs2 DATA 397,18,2 



























| ı 3026 DATA 39, 18,1 3064 DATA 39, 18,4 3034 DATA SI.) 5 
ı@ ı 2028 DATA 46,118,1 3066 DATA -1 4036 DATA 34,207,1 | 
| | 3050 DATA 43,219,2 4000 DATA 23,59,2 4038 DATA 29,69,1 

_ ı 3032 DATA 34,207,4 4002 DATA 23,57,1 4040 DATA 26,20,2 . 
ı® | 3054 DATA 46,118,2 4004 DATA 26,20,1 4042 DATA 26,20,2 ' © 
' ' 3056 DATA 46,118,1 400& DATA 29,69,1 4044 DATA 29,69,2 En 
| — ı 3038 DATA 52,39,1 4008 DATA 23,59,1 4045 DATA 29,69,2 ı . U 
ı@ ı 3040 DATA 58,138,1 4010 DATA 21,237,2 4048 DATA 23,59,1 
ı 3042 DATA 46,118,1 #012 DATA 21,237,1 4050 DATA 25, 20,1 
|. ı 3044 DATA 43,219,2 4014 DATA 19, 137,1 4052 DATA 29,69,1 
ı® | 2046 DATA 39,18,2 4016 DATA 21,237,1 4054 DATA 26, 20,1 
| ı 3048 DATA 36,225,2 4018 DATA 18,112,1 4056 DATA :23,5%,1 
| a ' 3050 DATA 37,18,1 | 4058. DATA 21,237,1' © 
ı # | 2052 DATA 36,225,1 4060 DATA 23,59,4 

ı 3054 DATA 39, 18,1 5000 DATA -1 

| o ' 3056 DATA 43,219,1 | 
el DATA 48,118, >23 DATA 21.277. 
®e: | Krkr% | 
‚; 1 REM ** LISTING NR.4 
® | 2 REM %* MASCHINEN-CODE DATA’S 
> REM #% 

2 4 REM %%* FOR THE GAME "THE CAVES’ 

5 REM *k (IC) BY MKB-SOFT 1985 
o | 6 REM #% 
a 

100 FORN=O0TD143 
| 110 FORT=0T09 
„ : 120 READ A 

130 POKE T+N%10+17300.A | 
1.140 SU=SU+A | 
= 1.150 NEXT 
1.160 READ X | 
1®: 170 IFX<>SU THENFRINT"TDATA-FEHLER IN ZEILE"SO000+N:END 1 
| ' 180 SU=0:NEXT 1 
ı® ' 190 PRINT"ALLE DATA’S IN ORDNUNG !!":END -@ 
7 ı 200 ı | | 

@ ı 210 
Bee 50000 DATA 174, 230, 203, 232, 142, 230, 203, 224, 10, 208, 1856 

© | 50001 DATA 59, 162, 0, 142, 230, 203, 166, 205, 224, 4, 1393 

; 50002 DATA 208, 48, 174, 10, 4, 224, 32, 240, 21, 162, 1123 

© , 50003 DATA 32, 142, 10, 4, 182, 0, 142, 164, 205, 142, 1004 
| ' 50004 DATA 165, 206, 162, 1, 142, 166, 206, 76, 218, 67, 1409 
| 50005 DATA 162, 73, 142, 10, 4, 162, 65, 142, 164, 206, 1130 


| 1.500065 DATA 162, 17, 142, 165, 206, 162, 0, 142, 166, 206, 1568 | 
l® ! 50007 DATA 32, 230, 71, 173, Ö, 220, 201, 117, 176, 8, 1228 a 
 ' 50008 DATA 24, 105, 16, i62, 2, 142, 233, 3, 174, 233, 1094 | 
ie! 50009 DATA 3, 224, O0, 240, 4, 202, 142, 233, 3, 170, 1221 

| 50010 DATA 224, 125, 208, 3, 76, 254, 69, 224, 125, 208, 1517 
| m ' 50011 DATA 3, 76, 8, 70, 224, 123, 208, 3, 76, 18, 809 

| + 50012 DATA 70, 224, 119, 208, 3, 76, 36, 70, 224, 117, 1147 | 
= : 50013 DATA 208, 3, 76, 54, 70, 224, 121, 208, 3, 76, 1043 en 
|” ; 50014 DATA 79, 70, 224, 118, 208, 3, 76, 104, 70, 224, 1176 

FF . 50015 DATA 122, 208, 15, 76, 129, 70, 174, 64, 206,. 142, 1206 

| =) 50016 DATA 0, 208, 174, 65, 206, 142, 1, 208, 174, 231, 1409 

li ‚ 50017 DATA 203, 232, 142, 231, 203, 224, 13, 208, 15, 162, 1633 
|® ı 50018 DATA O0, 142, 231, 203, 174, 65, 206, 232, 142, 65, 1480 

| _ } 50019 DATA 206, 142, 1, 208, 174, 66, 206, 224, OÖ, 240, 1467 


ad 
La 


® ı 50020 DATA 19, 174, 67, 206, 232, 224, 227, 144, 2, 162, 1457 ? 

| : 50021 DATA 225, 142, 67, 206, 142, 248, 7, 76, 128, 68, 1309 

© ı 50022 DATA 174, 58, 206, 252, 224, 225, 144, 2, 162, 225, 1560 

ee NER SS 
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30023 
50024 
230025 
0026 


so027 | 


S0o028 
00297 
SO0S0 
=inlı es | 


So 


0035 


so0S4 | 


SO03I 
SONS 
Su037 
SO0SB 
Sun3F 
SOO4O 
Su04l 
0042 
Sso043 
s0044 
0045 
0045 
Su047 
S0a04B 
Su047 
SO0OS0O 
Soosl 


Soansz ] 


30033 
SO0S4 


SU05S | 


SO0S& 
0057 
SOOSB 


Su0S7 


SO0&0 
Ssodsl 


SO082 | 


SO083 
saos4 


30055 |] 


u06& 
„0087 
0068 
Sons? 
0070 
so071 
0072 


S0073 | 


30074 
So) 75 
SU0O7E 
„0077 
so07B 
s0077 


SO0B0 


| 
| 9. 50081 


— — 
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142, 68, 205, 142, 248, 7, 174, ,.235, 53, 224, 1447 
0,240, 3, 75, 236, 67, 76, 255, 59, 76, 1076 
S&.-71,: 234, 172, 237, 3,192, 3, 198,.5,- 1177 
76, 57, 69, 172, 214, 3, 192, 1, 208, 34, 1026 
172, 212, 3, 200, 140, 212, 3, 204, 215, 5, 1582 
208, 19, 173, 21, 208, 56,233, 32, 141, 21, 1112 
208, 149, 0, 1491, 214, 3, 165, 162, 141, 2135, 1416 
3, 76, 57, 69, 172, 212, 3, 200, 140,212, 1144 

3, 204, 213, 3, 208, 241, 172, 217, 3, 200, 1464 
140, 217, 3, 192, 6, 208, 5, 180, 1, 140, 1072 
217. 3, 192, 14 208,3, 76; 235,58, 192, 159 


4, 208, 15, 172, 80, 195, 140, 10, 208, 172, 1204 
A'8i, 195, 140, 11, 208, 76, 35, 69, 172, 217, 1204 


3, 192, 2, 208, 3, 765: 8, 49, 192, 5, 758 
208, 15, 172, 82, 195, 140, 10, 208, 172, 85, 1285 
195, 140, 11, 208, 76, 35, 69, 172, 84, 195, 1185 
140, 10, 208, 172, 85, 195, 140, 11, 208, 173, 1342 


21, 208, 24, 105, 32, 14i, 21, 208, 160, 1, 921 


140, 214. 3, 164: 162.134, 215,5, 76, 199, 1309 
68, 172, 237, 3, 192, 4, 176, 35, 76, 105, 1036 
67, 172, 224. 3, 192,.1,.208, 32, 1725 222, 1295 


0835200, 140, 222; 3,.0204,0223; 3... 208, 19, 1225 


173, 21, 208, 56, 2353, 64, 141, 21, 208, 169, 1294 
0, 141, 224, 3, 165, 162, 141, 225, 3, 96, 1158 
i72, 2902, 3, 200, 140, 222, 3, 204, 223, 3, 41892 


208, 243. 172, 227. 3, 200, 140, 227, 53, 192, 1615 


&, 208, 5, 160, 1, 140, 227, 3,192, 1, 9783 
208, 3, 76, 145, 59, 192, 4, 208, 15, 172, 1092 
90, 195, 140, 12, 208, 172, Fi, 195, 140, 13, 1256 
208, 76, 201, 69, 172, 227, 3, 192, 2, 208, 1358 


34 76, 1745.59, 192, 5, 208, 15, 172, 72, 1006 


195, 140, 12, 208, 172, 93, 195, 140, 13, 208, 1376 
76, 201, 69, 172, 974, 195, 140, 12, 208, 172, 1339 
95,195, 140, 135, 208, 175, 21, 208, 24, 105, 1182 
64, 141, 21, 208, 160, 1, 140, 224, 3, 160, 1122 
200, 141, 223, 3, 160, 237, 140, 254, 7, 189, 1534 
i, 141, 232.73, 76, 105, 89, 173, 31, 208, 1039 


32, 154, 70, 173, 31, 208, 41, 1, 201, 1, 912 


208, 3, 76, 216, 70, 76, 141, 58, 174, 65, 1097 
206, 232, 142, 65, 206, 76, 48, &8, 174, 65, 1282 
206, 202, 142, 65, 206, 76, 48, 68, 32, 160, 1205 
70, 174, &4, 206, 202, 142, 64, 206, 162, 0, 129% 
142, 66, 206, 76, 48, 68, 32, 188, 70, 174, 1070 
64, 206, 232, 142, 64, 206, 162, 1, 142, 66, 1265 
206, 76, 48, &8, 32, 188, 70, 174, 64, 206, 1132 
232, 142, 64, 206, 162, 1, 142, 66, 206, 174, 1395 
65, 206, 232, 142, 65, 206, 76, 48, 68, 32, 1140 
i60, 70, 174, 64, 206, 202, 142, 64, 206, 162, 1450 
0, 142, 66, 206, 174, 65, 206, 232, 142, 65, 1298 
206, 76, 48, 68, 32, 188, 70, 174, 64, 206, 1132 
232, 142, 64, 206, 162, 1, 142, 56, 206, 174, 1395 
65, 206, 202, 142, 65, 206, 76, 48, 68, 32, 1110 
160, 70, 174, 64, 206, 202, 142, 64, 206, 162, 1450 
0, 142, 66, 206, 174, 65, 2065, 202, 142, #5, 1268 
206, 76, 48, 68, 182, 0, 232, 208, 253, 96, 1349 
174, 69, 206, 224, 1, 208, 20, 174, 64, 206, 1346 
224, di, 2OB, 153, 173, 16, 209, :41, 254, 131, 1278 
i6, 208, 162, 0, 142, 69, 206, 9%, 174, 69, 1142 
206, 224, O0, 208, 20, 174, 64, 206, 224, 255, 1581 


“ B = - En; 
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Schon gehört?! -— ++- Schon gehört?! -- ++- Schon gehört?!-- ++- 
Der TRONIC-VERLAG sucht in den Computerzeitschriftien „COMPUTRONIC* und „HOMECOMPUTER® den, 


Software-Champion 1985!!! 


Es warten tolle Preise auf Sie! 


5000 DM in bar! 

Ein Farbmonitor De 

im Wert von 800,- DM! 
Computer-Zubehör (wahlweise 
im Gesamtwert von 300.- DM) 


Nutzen Sie Ihre Chance, beteiligen Sie 
sich mit einem Software-Programm an 
unserem Wettbewerb! 


‚Jedes eingesandte Programm nimmt an 
der Auswahl teil! 


Letzter Annahmetermin ist der30.Sep- | I ii, n 

tember 1985. Der Rechtsweg ist ausge- 45 Die b en 1 rei AnU ne 

schlossen. = 2 

Zur Auswahl: an E note: 

Wir stellen in jeder Ausgabe von COM- | ine use ford erlich) 
PUTRONIC mindestens drei TOP- Een N INIC- ee N 
PROGRAMME, in HOMECOMPU- AB u ee a 

TER 1 Topprogramm vor. Hierfür Postfach | 

trifft die Redaktion die Enıscheidung Rah: er ee EEE RT, 

(unabhängig vom Computertyp). 5 KEN IN\ Wi OR: pen JP ER. 


Wirdcin Programm zur Darstellung im 
Heft herangezogen, zahlt der Verlag eın 
Honorar von DM 1230,- pro abgedruck- 
te volle Seite. Zum Jahresende stellt. die 
Redaktion noch einmal alle als TOP- 
PROGRAMME ausgezeichneten Pro- 
gramme var. Unsere en BEER = 
|  daktion werden dann ın der Ausgabe wure PP De ' | . a; | | 
Nop/ben ar a Wir wünschen allen Freizeitautoren 
| ANMM des JAHRES wänlen. IE A Bl a .; # | | 
Der Autor. des Programmes wird in un- viel Spab beim Mi tmachen f 
serer Ausgabe vorgestellt und mit DM 
S000- prämiiert werden. 
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DATA 


o DATA 
DATA 
" DATA 
DATA 
7 DATA 
DATA 
. DATA 
DATA 
DATA 
' DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ı DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
' DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
' DATA 
' DATA 
DATA 
. DATA 
DATA 
DATA 
> DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
>4 DATA 
DATA 
; DATA 
DATA 
DATA 
| ’ DATA 
50140 DATA 


16 HOMECOoMRUTER 


DATA 


DATA 2 


DATA 
DATA ; 


208, 


162, 227, 142, 70, 206, 142, 248, 7, 76, 237, 


70, 

21, 

202, 
142, 
208, 
162, 
206, 
208, 


7, 208, 21, 
200, 
140, 237, 3, 


55 
1 
177, 
ai, 

206, 


141, 
=F zZ08, 20, 


72, 


ö, 240, 


216, 
So. 
30, 
176, 
162, 
177, 
206, 
1, 
173, 
72; 
174, 
53, 
142, 
i81, 
SB, 
206, 
48, 
206, 


18, 
=P 

182, 
144, 
208, 
12; 

184, 
142, 
5, 
4: 


142, 39, 208, 232, 32, 25, 


236, 


174, 


173, 16, 208, 9, 
142, 69, 206, 96, 
141, 28, 208, 162, 227, 
7, 162, 0, 142, 71, 206, 
142, 71, 206, 208, 3, 78, 


i, 141, 18, 208, 
173, -28, 208, 41, 
142, 70, 2086, 
174, 71, 

3%, 71, 
71, 224, 
174, 70, 206, 232, 224, 229, 208, 


13, 
1, 


245, 

160, 173 

208, 
142, 


0, 200, 192, &, 208, 251, 
41, 254, 141, 21, 208, 
79, 206, 224, 0, 208, 28, 
89, 206, 32, 181, 72, 182, 48, 
i42, 181, 20%, 142, 182, 206, 142, 
5, 142, 79, 206, 96, 182, 2, 142, 89, 
96, 174, 30, 208, 158, 41, 9, 201, 7, 
47, 172, 84, 206, 200, 140, 84, 208, 

160, 1, 140, B4, 206, 172, 
140, 237, 3, 192, 10, 208, 5; 

162, 142, 89, 208, 


96, 
i62, 1 
142, 


150, 
2 174, 
206, 142, 
3 201, 3. 208, 20, 
32, 479, 72, 1704, 0215 
21, 208, 76, 144,. 68, 
162, 10, 142, 
208, 235, 4, 
138, 41, 85, 
138, 41, 35, 
138, 41, 129, 201, | 
2i&, 70, 76, 144, &8, 174, 174, 206, 
il, 162, 6, 142, 39, 216, 142, 38, 
76, 216, 70, 146, 182, 142, 39, 216, 
216, 174, 175, 2086, 232, 142, 175, 206 
240, i, 96, 162, 0, 142, 179, 206, 
205, 202, 142, 
9, 142, 176, 206, 174, | 
205, 224, 255, 208, 1&, 162, 0, 142, 
142, 177, 206, 162, 1, 142, 174, 2086, 
72, 175, 176, 206, 105, 48, 141, 37, 4 
177, 206, 105, 48, i41, 38, 4, 76, 1i 
172, 179, 206, 192, 0, 208, 1, 75, 136 
iB0, 205, 232, 142, 180, 208, 
162, 48, 142, 180, 206, 174, 181, 206, 
i6i, 206, 224, 5B, 208, 37, 182, 48, 
206, 174, 182, 206, 232, 142, 
208, 21, 162, 48, 142, 182, 205, 174, 
232, 142, 193, 206, 224, 58, 208, BES 
142, 183, 206, 192, 0, 208, 187, 174, 
142, 21, 4, 174, 181, 204, 142, 
iB2, 205, 142, 19, 4, 174, 18553, 206, 
4, 76, 174, 195, 205, 236, 
187, 206, 144, 84, 76, 242, 72, 17 
206. 236, 186, 206, 240, 8, 236, 186, 
68, 76, 242, 72, 174, 181, 206, 236, 
240, 8, 236, 185, 206, 144, 52, 76, 2 
174, 180, 206, 236, 184, 206, 240, 41, 
206, 144, 536, 174, 185, 208, 142, 
29, 4, 174, 182, 206, 142, 186, 205, 
4, 174, 181, 206, 142, 195, 206, 142, 
180, 206, 142, 184, 206, 142, 32, 


162, 20, 142, 179, 
Bossa Diez, 
138, 41, 5, 
179, 206, 32, 79 
56, 141, 21, 208 
201, 65, 208, 3, 
201, 33, 208, 3, 
129, 208, 


173, 21, 
144, 68, 
216, 70, 
216, 70, 


177, 206, 202, 


206, 
162, 
180, 


174, 79, 208, 


180, 
183, 


2a, 


179, 206, 32, 79, 72, 96, 138, 


201, 


or 
ii. 


224, 
174, 


176, 206, 224, 255, 208, 32, 


274, 58, 


182, 208, 


20, 4, 


187, 206, 240, 


31, 


PÜ| 
993 wi 
1125 | E3; 
142, 1580 .@ 58 
1287 a. 
1204 ip Be 
1155 1: 7 
1517 ER Men 
‚ 1356 | 
1353 | 
1252 | 
1254 a: 
Do, 1798. De 
1085 5 
1112 | 
192, 1539 | 
1236 
1158 ®| 
1155 | | 
1327 '® 
ware He = 
1082 1 [RE 
10435 | 
‚ 1043 
‚ 1137 
1009 1 
1019 na! 
1211 | 
1428 | 
9796 Ve: 
142, 1445 m 
221708 
1225 | 
1827 | 
1596 
1567 
1492 


142, 
177% 
76, 
‚975 
‚ 979 
, 1282 
208, 
232, 1584 
142, 1408 | 
2984, 1935 ı@ | 
1384 | 
162, 1626 | 
180, 1520 | 
1100 | 
142, 1432 
1550 
1429 
1892 


1810 


185, 


4, 
206, 
185, 1584 
42, 1595 
235, 1775 
206, 1668 
142, 1413 
1301 


AUGUST/SEPTEMBER 1985 











„re n lerhaltes 


ji ein torr rl: 
Mh HE 





' Nachdem die Aktıon „Feh- 
lerhaftes Listing“ in der Zeit- 
schrift COMPUTRONIC bei 
den Lesern ein Riesen-Echo 
gefunden hatte, riefen wir eben 
diese Aktion auch für den HO- 
MECOMPUTER ins Leben. 
Was für eine Resonanz, lieber 
Leser! Um einiges zuvor klar- 
zumachen: Das HOMECOM- 
PUTER-Team möchte mit 
dieser Aktion den Lesern die — 
lukrative - Möglichkeit geben, 
uns auf eventuell gemachte 
Fehler aufmerksam zu ma- 


Ai tahe 





Im ven Heft als wir un- 
sere Aktion starteten, hatten 


aufmerksame Leser bereits 


kräftig „abgesahnt“. Die 
„schnellsten“ fünf hatten ihre 
verdienten 100 „Steine“ erhal- 
ten. 

Auch im letzten Heft schlichen 
sich einige Fehler ein, die unse- 


re treuen Leser sofort erkann- 


ET Be v u 7 =“ 1 e= Er R P nn =; 
h r Lak an 3 Pr ot anı n: Hier [ii u 1 El 


Albert t Bel lzl, Neumarkt kt 


| Heinz-Berr nd’ Eggenstein, Werne 


ı Ka 


| Kai Elve ers, B I; lamburg 93 
27 Lothar I Frits :h, Spiesen 


: 1 1} 1; L} 
| = h Br a . ww 7 
H an 5 AT AEEE LABEL TE AUE TI ELARFIR 
! 


Name/Vorname: 


PLZ/ON! 


Folgende’ Fehler sind in dem Listing . 


(Seite) (Listingzeile) 


richtig: — 


AUGUST/SEPTEMBER 1985 





Straße, Nr: 


Datum, Linierschrift 


(Programmname) 


er 


Ne etre Besen ke hr, en aut“ — Kiesen-Echö auf die Akobon 





ten. Aus der Vielzahl der 
„schnellen“ Einsender hat die 
Gl ücksgöttin Fortuna die fünf 
Gewinner der Monate Juni/ 
Juli ermittelt. Das „Füllhorn“ 
wurde ausgeschüttet über die 
folgenden Personen, dıe dem 


Fehlerteufelchen das Hand- 


werk legten! 


| Teilnahmebedingungen: 


| — eın Listing ist nur dann fehlerhaft, 


wenn das Programm nach richtiger 
Programmiereingabe eine ERROR- 
Meldung ausgıbt, 

- der Nachweis des fehlerhaften Li- 
stings muß auf: dem abgedruckten 
Nachweis-Coupon erfolgen, 

— nur die ausgefüllten Nachweis-Cou- 
pons können berücksichtigt werden, 


Te a ae SEE — —— — zz 





Homecompurer IF? 





® | 50141 DATA 96, 0, 181, 217, 41, 127, 180, 218, 16, 2, 1078 
' 50142 DATA 7, 128, 147, 217, 232, 224, 24, 208, 237, 165, 1595 
@ 50143 DATA 241, 9, 128, 133, 241, 165, 217, 18, 195, 230, 1575 
@: EFT R 
©: 1 REM %%k LISTING NR.5 
: 2 REM *%x INTERRUPT-ROUTINE - MC DATA’S 
3 REM x% 
4 REM k*k FOR THE GAME ’THE CAVES’ 
B; 5 REM %*k {C} BY MKB-SOFT 1985 
6 REM %*% 
Ser | 
' 100 FORN=0TO114 
110 FORT=OT0O? 
_ 1.120 READ A 
"1150 POKE T+NK10O+14100,A 
140 SU=5U+A 
150 NEXT 
i&0 READ X | 
170 IFX<>SU THENPRINT"TDATA-FEHLER IN ZEILE"SOOOO+N:END 
180 SU=0:NEXT 
170 FRINT"ALLE DATA’S IN ORDNUNG !!"rEND 
u! 200 
' 210 : 
50000 DATA 32,131,65,120,159,45,141, 20,3, 169,896 
50001 DATA 835,141, 21,3,165,253,141,18,208,1753,1186 


© ' 50002 
. 50008 


50004 


1 50005 
"50006 
_ ı 50007 
" , 50008 


30007 


. 50010 


Soo1l 


' 5001? 
. 50013 
50014 


= ' 50015 


500165 
‚ 50017 
. S001B 
, 50017 
‚ S0020 


ın0021 


„u022 


ı 50023 


1 50024 


ne | 


50025 


, 0025 


Su027 


rn 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


17,208,41,127,141,17,208, 169, 129,141,1198 
26,208, 88,169,0,141,62,3,141,63, 901 
3,169,1,141,60,3,141,61,3, 169,751 
30,141,64,3,169,15,141,24,212,169, 768 
10,141,5,212,141,12,212, 169, 200,141, 1243 
3,212, 96,234,173,25,208,141,25,208, 1325 
48,7,173,13, 220,88, 76, 100,63,173,961 
18,208, 197,254, 176, 16,165, 251,141,32,1458 
208, 141,33,208, 165, 254, 141,18, 208, 75,1452 
188, 254, 165,252, 141,32, 208, 141,33, 208, 1622 
165, 253,141,18, 208, 76, 188, 254, 166,162, 1631 
142, 42,208, 174,8, 207,232,142,8,207,1370 
224,110, 240,3,76,199,63,162,0,142,1219 
8,207,174,9,207,224,1,240,20,162,1252 
1,142,9,207,169,0,162,0, 157,240, 1087 
50,232,224,8,208, 248, 76,88,64,162, 1360 
0,142,9,207,162,8, 142, 240,50, 162, 1122 
16,142, 241,50,162,48,142,242,50,162, 1255 
16,142, 243,50,162,8,142,244,50, 162, 1219 ° 
12,142,245,50,162,8,142,246,50,162, 1219 
16,142, 247,50,76,88,64, 174, 18, 207, 1082 
232,142,18,207, 224, 15,240,3,76,88, 1245 
64,162,0,142,18,207,174,19,207,232, 1225 
142,19, 207, 224,0,240,60,224,13,240,1369 
56,224,1,240,63,224,12,240,59,224,1343 


DBATA 2,240,66, 224,11,240,62,224,53, 240, 1312 


IE HOMECOMPUTER 


ae 
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 —— ZZ SEE ni m 8 m mE BE m: ES © came mu — wm. 


' 50028 DATA 69, 224,10,240,65, 224,4, 240,72, 224,1372 
50029 DATA =5,240,68,224,6,240, 64, 224, 7, 240,1318 
® ı 50030 DATA 60, 224, 8, 240, 56, 224, q, 240, 52, 162, 1275 

' 50031 DATA 255,142,19,207,76,88,64,162,255,142,1410 
'ı 50052 DATA 123,49,142,124,49, 76,88, 64, 1582, 128,1005 
50033 DATA 142,123,49,142,124,49,76,88,64,162, 1017 
50034 DATA 60, 142,123,49,142,124,49,76,88,64, 917 
| _ 150035 DATA 162, 24,142,123,49,142,124,49,76,88,979 
ı 17, 50056 DATA 64,162,0,142,125,49,142,124,49, 76,931 
+ 50037 DATA 88,64,166,162,142,44,208,142,10,216, 1242 

50038 DATA 174,195, 206, 232, 142,195, 206, 224, 25,208, 1807 
„ ' 50039 DATA 21,162,0,142,195,206, 174,196, 206, 232,1534 

50040 DATA 224, 237,144,2,162,235,142,1976, 208, 142,1890 
“ ' 50041 DATA 253,7,174,74,206,232,142,74,206, 224, 1592 
50042 DATA 10,208,37,162,0,142,74,206,174,194,1207 
50043 DATA 206, 232,224,243,144,2,162,241,142,194,1790 
50044 DATA 206,142, 252,7, 174, 76,206, 232,224, 231,1750 
| | 50045 DATA 144,2,162,229, 142,76, 206, 142,249, 7,1359 
| 50046 DATA 174,75, 206,232, 142,75,206, 224, 15,208, 1557 
| ® ! 50047 DATA 21,162,0,142,75,206,174, 77,206, 232,1295 
| 50048 DATA 2724, 234,144,2,162,231,142,77,206,142,1564 
| ® : 50049 DATA 250,7,234,174,64,3,202,142,64,3,1143 
| 50050 DATA 240,3,76, 128,65, 173, 69,3, 141,64,962 
|® | so0S51 DATA 3,32,42,65,32,85,65,173, 164, 206,867 
| N 50052 DATA 141,4, 212, 173,66, 3,141,0, 212,173, 1125 
| ® ı 50053 DATA 65,3, 141, 1,212, 173,185, 206, 141,11,1118 
50054 DATA 212,173,68,3,141,7,212,173, 67,3, 1057 

"50055 DATA 141 ‚8,212,173, 62,3,201, 997,240,3,1142 
|. | 50056 DATA 76, 128,65,169,0, 141,62,3, 141,63, 848 
| " ,.50057 DATA 3,169,3,141,60,3,141,61,3,76, 660 
| , 50058 DATA 128,65,174,60,3,202, 142,60, 3,240, 1077 
50059 DATA 1,96,174,62,3,189,32,78,141,65,841 
a , 50060 DATA 3,189,33,78,141,66,3,189,54,78,814 
' 150061 DATA 141,60,3,232,232,232,142,62,3,169,1276 
os | 50062 DATA 0,141,4,212, 96, 174, 61,3, 202,142, 1035 
| 
| 
| 
| 


| 


— | 


er) 


—_— |— 
mE ni nn TE m oe m Summe un um allen m mu en me 1 
v [| 
Jar he 


 —,_- zer m |— 
| 
|; 
[) 


= = m men or ee s_———— 
» £ 
er [ . 5 
a Li; 


' 50063 DATA 61,3,240,1,96,174,63,3,189,8,838 
o | 50064 DATA 82,141,57,3,189,9,82,141,68,5, 785 
' 50065 DATA 189,10,82,141,61,3,232,2532,232,142,1324 
® , 50064 DATA 63, 3,169; 0,141,11,212,96,76,1.1,902 
‘ 50067 DATA = 174,232,3,224, ‚209,43, 174, 182, 130& | 
50068 DATA : 3,232,142, 182,3,224, 20, 208, 32,162, 1208 "0 = 
' 50069 DATA 0,142, 192,3, 174, 254,7,232,224, 243, 1461 
ı® | 50070 DATA 208,16,162,237,160,0,140,232,3,175,1531 
I | 50071 DATA 21, 208,56, 23 13, 54, 141,21,208,142, 254,1348 
|® : 50072 DATA 7,76, 184,65,174,193,3,} 224, 1,208, 1135 
| . 1 50073. DATA 29,174,192,3,232,142,192,3,224,25,1216 
i | 7, 50074 DATA 208,18,162,0,142,192,5,174,253, 7,1157 
| 50075 DATA 232,224, 237,208, 2, 162,235, 142, 253,7, 1702 
ı 50076 DATA 76,223,65 172, 237,3, 192,2,176,3, 1149 
„ . 50077 DATA 76,128, 66, 174,143, 3,232,142, 143,3, 1110 
' 50078 DATA 224,7,240,3,76,128,66,162,0,142,1048 
- ' 50079 DATA 143.3 ‚165, 162 ‚201,100,176,10,174,15,1149 
50080 DATA 208, 202, 142, 13; 208, 76,19,66, 174,15, 1125 
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'So1l04 


=\0bE0he' 
50106 
30107 


, 50108 
„50109 
50110 

‚+ 50111 
- + 50112 
' 50113 


150114 D 


EEE: - ÜE- GM EEE: — GEM E GE EEE [1 mE: SEE m EEE m: EEE EEE TEE EEE EEE EEE FREE —— | — = == = 09 zu m. m (Em mE EEE m EEE EEE | ME: © SEE "= SM: > ;mips-> | BB EEE: 


Homecomputer 
Landstraße 39 
Postfach 41 
3444 Wehretal 1 


Unter der Rubrik „Kleinanzei- 


, 206,160,2 
\ 7,160,235, 140, 253,7,160, 225 
A 206,160,223,140, 68,206, 96, 131,189, 211,1630 


—— — a —— SE 


208, 232, 142, 15,208, 174, 14, 208, 232, 224, ‚1657. 


0,208, 16, 173,16, 208, 24, 105 ‚128, 141, 1019 
16,208, 162,1,142, 144,3, 162,0, 142,980 

14, 208, 174, 144,3, 224,0, 240,62,174,1243 
14,208, 224,80,208,55,162,0, 142,14, 1107 
208, 142,144,3,173,16, 208,56, 233,128, 1311 


 141,16,208, 166, 162, 224, 70,176,11,165, 1339 


162, 24,105,100, 141,15, 208, 76, 252, 65, 1148 
224,220,144,11,165,162,56,233,40,141,1396 
15,208, 76,252, 65,142, 15,208, 76, 252,1309 
65,174,255,7,232,224,245,208,2,162,1574 


\ 243,142, 255,7,76,49, 234,169, 0,160, 1335 


0,153,60, 3.200, 192,180, 208,248, 160, 1404 
50,140, 213,3, 160,15, 140,69, 3,140, 933 
46,208, 132,252,160,128,140,27,208, 169, 1470 


48, 160,0, 153, 180, 206, 200, 192, 10, 208, 1337 


248,160,0,140,14,208,140,144,3,140, 1197 
32,208, 140,33,208,132,251,160,85, 140, 1389 
15,208, 160, 255,140, 21,208, 140, 27,208, 1382 
160,13,140, 28, 208,160, 7,140,40,208,1104 
160, 229,140, 249,7,160, 232,140, 250,7,1574 


160,29, 140,24, 208, 160, 223,140, 248,7,1339 


150,1,140, 39, 208,140,84,206,1680,8,1146 
140,38, 208, 160, 12 ‚140, 37, 208,160, 234, 1337 
140, 251,7,160, 5. 140,77, 206, 160, 1,1147 
140, 237,3, 160,80, 132, 253, 160, 253, 132, 1550 


254,160,235,140, 196, 206, 160, 241,140, 194, 1926 


206, 160, 251,140, 77,206, 160,229, 140,76, 1625 
3.140, 255, 7,160, 237, 140, 254, 1802 
‚140, 87, 1394 


121,30, 244, 166, 245,123, 131, 252,176,16,1504 
124,12,31,103, 202,124, 222,83, 203,193, 1297 
125,20, 100,112, 76,125, 183,234, 81,122,1178 


Fortsetzung Seite 22 


für Gelegenheitsanzeigen in Homecomputer 





Name und Aurtıar 
Abi f, 


Uniersehnift Ich sale soları nach Rechnungierhali — Datum 


Ich wünsche folgenden Text zu veröffentlichen: 


DB mn f > a s wir ! „u 
4 hi F „e 
TERBREN 7 Ti Erg Pa WE 


4 : L F u 
Ai z 
Ak a 





gen“ veröffentlichen wir Ge- 








lepenheitsanzeigen für Verkaufs- Zutreffendes ankreuzen 
angebote, Kauf- und Tausch- | Brei lisli.lcl | Ol Ankäufe . 
gesuche, Kontaktaufnahme bzw. DO Verkäufe | 
Erfahrungsaustausch usw, OKontak 
ontakte 
[1 Tausch 


Neue Preise für 


„Kleinanzeigen“: 

Jede Gelegenheitsanzeige 10,- DM 
inkl. MwSt, 

Chiffregebühr je Anzeige 10,- DM, 


OD Geschäftsempfehlungen 
[I Verschiedenes 


U gewerblich 
0 Daiy at 
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5 SrBens- ‚Auswertung, 


BILLIGER GEHT’S NIMMER! 


Acht Zeilen für 'nen Zehner: Super-Kleinanzeigenaktion im 


HERE ie Verkaufe TI 99/4A, Ex-Basic, 


Verkaufe Bohren für VG 
Disser, | 
Schulstr, 42, 6451 Mainhau- 


20 und C 64. G. 


sen 





DD oe un nee 
C 64: Superschnell. Neu: Fire- 
legion (atemberaubende Ef- 


fekte: Laserminen etc.) r JD- 


Vampir + 3D-Fortress auf 
Tape, alle zus. = 15,- +5,- | 
DM Porlo (Schein/V-Scheck). | 
GC. Wurzer, Grüntenweg 14, 
8500 Nürnberg. Lieferung in 


48 Stunden. 


TI. 99/4A: Verk. TI Und Ex-Ba- 
sic-Programme.. Inio gegen 
Rückporto. B. Knadel, 


© dore © 64 Charakterana- 
e!yse — Horoskop, i10- 


® Farbgrafik, Disk DM 59,- 
e (Euroscheck od. bar), NN 
H zz0l. 5, DM. Th. Jen- 


| & czyk, PF 65, 3250 Hameln ® 
| B00000000000000008 


Verk. Sanjo-Farbm. u. Com- 


mod. Printer MPS801. Tel. 


02.09 / 49.65 82 


TI-99/4A + Datasetle u. Modu- 


le, 1 Buch, VB 200,— DM, Tel.: 
051 01/39 00 ab 17 Uhr 











HOMECOMPUTER 


PBox, Disk,  Coniroler, 
Sprachsyniheseiser, Casset- 
tenıstation, Joy Stick, 9 Modu- 
le, viele Zeitschriften, Bücher, 
Neupreis 3000 DM, Preis 
VHS, Denis Damm, 68300 
Mannheim 31, Mittelried 5. 
Tal 06.21 [75 4255 


Original Spielhallen-Hits in in 
großer Auswahl! Ghost Bu- 
sters, Donkey, Kong, Frog- 
ger, Space Shutle, Flugsimu- 
lator, Grandmaster Schach 
und viele Hits mehr. Dirk 
Skrzypczak, An der Ölmühle 
>55 4270 Dorsten 1, Tel. 
02362/25904 


Te ASZMIC-ROM: Kommentier- 
pengasse 16, 3171 Weyhau- 
sen, Te, 05362/71187 

 000000000000000000 


'® * Apple 2 und Commo- 


tes Sourcelisting, ca. 3500 
Zeilen! gebunden, DM 30,- 
plus Versandkosten. Decker 
& Computer, Pi. 967, 7000 
Siutigart 1, 07 11253 14 





ı TI-99/4A + Hülle + Rec.-Kabel 


+ Bücher 200,- DM, Tl-Joy- 
stick 25,— DM, Drucker 5SEI- 
KROSHA GPIOO + MBlInterf, 
400, — DM, Bucht.-Modul 
100,- DM, 


Personal-Aec.- 


Keeping, Pe.-Rec.-Generator 


je Modul 50,— DM, div. Bü- 
cher, Munchman-M. U. Dörr, 
Tel.061 06/44 71 ab 19 Uhr 


Programme für VC 20 u.\ Cs4, | 


Liste gegen Freiumschlag. 
Weidl, Birmenweg 8, 6301 
Biebertal 5 


| 





| Achtung! Neuabonnen- 
ten! Löse meine Samm- 
lung aufl Homecompter: 
1.-27. Heft (383-8/85) und 
Computronic: 3-5/85. VB: 


123.45 inkl. Versand. Das | 
| höchste Gebot erhält bis 
| zum. 15. 3. 85: den: Zu- 


| schlag. J. Gültel, Kölner 


| Str. 99, 5650 Solingen 





\| Achtung TI-99/4A-Besitzer! 


) E mes mit Topsound, 


A D.C. Wurzer, 


Verkaufe spotibillig Prg's in 
Ex-Basic (Tl-Basic) (bilte an- 
geben). Bei Bestellung der Li- 
ste bekommen Sie 1 Gra- 
tısprg! Infos bei Carlos Jar- 
que, Ludwigsburger Sir. 14, 
7257 Ditzingen 1, Rückporto 
beilegen. 


ne] 
I. T1-99/4A: Super3D-Ge- 0 
Info | 
og 1, DM, Prg, ab 1,- DM. 
Grüntenweg 2] 


rate |: 14, 85 Nürnberg @ @ @ D n| 
te Ihre ooconooaoocoooooon 





Bel = Achtung! Wir führen gängige 


TI 99/4. 
Box u. Karten, Adanter, PAL- 
MODULATOR + Cass.-Rec., 
alles von TI, Drucker von SEI- 


KOSHA GP-100A, und diver- 


ses Zubehäörmaätenal, alles zu- 
sammen nur 1750- 


auch einzeln. Tel. Berlin 


0303818254, öfter zw. 16 


u. 21 Uhr 


Verkaufe VZ200 Color-Com- 
puter mit 64 K-RAM-Erweite- | 
rung, 2 Joysticks, 3 Spiele- + 


1 Demo-Kasseltte, 2 Handbü- 


cher. NP 750.- DM für 400, | 
DM. Tel.0561/4 34 92, Uwe. 
Jansen. Suche für ZX81 16K- 


RAM-Erweiterung, 


Werk. Ex-Basic, Peri 


DM, 





u. neueste PC- u, MC&-Litera- 
tur. Gratiskatalog anfordern! 
cbv, Postf. 11.01, 8411 Lap-| 


persdori 


Verkaufe C 116 u. Data- 
seite u. Joystick u. Spiele 
für 350,— DM. Angebote 
an 5. Tsemperlis, Tel. 


07151/57753 von 13 
bis 14 Uhr 


nTEERESSESTIBELTTESTRUNBFERETE 


, r x 
Ü IE Me. 
. We in we 
" re = Ta > 


Ataril Tausch: nur Kass. Sien- | 
knecht, Östlandstr, 27, 2351 
Wasbek 











= : u _ I u Zn en on —— 


Neue Knüller: 


ELCAD und PCA 





Mülheim (M. K.) „Drei Dinge braucht 
der Mann: eine eigene Firma, einen star- 
ken Partner und ein Super-Produkt.“ 
Das sagte sich Peter Rüth, ehemaliger 
Hardware-Profi bei STC, der deutschen 
Tochter der Storage-Technolögie, als er 
sich den Schritt in dıe Selbständigkeit 
überlegte. 

Sein neues Computer-Service- und - 
Softwarehaus mit dem beziehungsrei- 
chen Namen „PCCare” eröffnete er am 
3. Juni 1985 in Mülheim an der Ruhr. 
Den erfahrenen großen Bruder im Rük- 
ken („Rüth“) fand er in Wilfried Grä- 
bert, dem bekannten Computer-Spezia- 
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listen aus Berlin. Den Knüller zur Ge- 
schäftseröffnung aber landete er gleich 
mit zwei brandneuen Software-Paketen: 
ELCAD und PCA, 


ELCAD erweitert die „Software des 


Jahres 1984", AutoCAD, zu einem ex- 
cellenten Werkzeug für Elekironikin- 
strukteure und Elektrozeichner. Es ba- 
siert auf einer anwenderfreundlichen 
Zusammenfassung verschiedener Auto- 
CAD-Befehle in ein übersichtliches 
Menü. Neben einer Symbol-Bibliothek 
für nach DIN definierte Schaltzeichnun- 
gen und Vordrucke enthält ELCAD eine 
Nachverarbeitungs-Softiware. Sie ver- 
sieht die erstellten Stromlaufpläne auto- 
matisch mit den nach DIN genormten 
Betriebsmittel-Bezeichnungen. 


Mit PCA, dem zweiten Newcomer in 
Rüths Staripaket, wird aus dem norma- 
len CAD-Programm AutoCAD eın 
hochspezialisierter Arbeitsplatz für die 
interaktive Leiterplatten-Layout-Kon- 
struktion und -Herstellung. 


Der Clou des Programms: Der Bediener 
übernimmt ohne Einarbeitungszeit sei- 
ne gewohnte Arbeitsweise mit Auto- 
CAD, Auch alle anderen anfallenden 
grafischen Arbeiten können daneben 
voll genutzt wrden. 


NWähere Informationen bei: PÜCare 
Computer Service und Software Sup- 
port GmbH, Buggenbeck 30-30a, 
4330 Mülheim an der Ruhr, Tel. 02087 
3609 73 und 36 0742 
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® : Fortsetzung von Seite 20 Fo ® 
REM %%* LISTING NR.6 Se 
REM %% FARBSETZ-ROUTINE - MC DATA SE 5 
REM x*% Bern a 

REM *k FOR THE GAME "THE CAVES’ 
REM *%*+ (C) BY MEB-SOFT 1985 
REM *%* 







„Jr oi 2 JM 


100 FORN=0T09 
®. 110 FORT=0T09 
| .' 420 READ A 
| 130 POKE T+NX10+16000,A 
| 140 SU=SU+A 

| 150 NEXT 

so. 160 READ X 
| 

| 

| 

| 


BER FErT HET IE 
m 
N FERIEN IE? 
ai ww zus un [.) 
ee FIT IDEE. 


- 
u 

—— - — 
i EB: 


' 170 IFX<>SU THENPRINT"NDATA-FEHLER IN ZEILE"SOOOO+N:END | 
8 | 180 SU=0: NEXT @ 
+ 190 FRINT"ALLE DATA’S IN ORDNUNG !!"zEND 
ı®ı 200 ; 
mal 2102: m 
9) 50000 DATA 162,0,134,5,162,4,134,6,160,0,767 . 
- ı 50001 DATA 177,5,201,47,240,21,177,5,201,94,1168 = 
50002 DATA 240,36, 200,192,0,208,259,166,6,232,1517 
50003 DATA 134,6,224,8,208,228,96,165,6,24,1097 '@ 
' 50004 DATA 105, 212,133,6,169,12,145,5,165, 6,958 j 
©: 50005 DATA 56,233,212,133,6,76,150,62,165,6,1097 

' 50006 DATA 24,105, 212,133,6,169,1,145,5,165, 965 


„re er r- 
Pe u P 


riz.#rT 


ed 


EUET 
a Es TA tr ra nn deine id 
ERFTLERT EEE IT EST re 


Irirree 
JiEzEiH 


rt 
Tr 


warez 


iii 


+ Ha 


® | 50007 DATA 6,56,233,212,133,6,76, 150,62, 255, 1189 E 
ı. ! 50008 DATA 129,249, 243,231,207,159,129,2559,231,251,2064 | 


1 50009 DATA 231,0,0,231,231,231,63,63,207,207,1464 
u Due Zur Zu 


Ka *% LISTING NR.7 = 
| tt HAUPTFROGRAMM 


Hua 


SFerIeSEE RER 
Misin 


Zr | 
DH a 
if 


| x% 
Br *t FOR THE GAME "THE CAVES’ 
| | -  +# <C} BY MKB-SOFT 1985 
@:: #4 


TTrerIgE 


! 
I IPRIEEr, Eireidis 
BErIerpe nn Pr 088 







=, 10 V=53248ıFA=5:PRINT"T':SYS18100 

20 GOSUBSH00 

210 IFPEEK 1532820) =1 THENGDOSUEBBOOO = 
220 PRINT" I": FOKEV+21 , 755: POKEV+28, FEEK (V+2B) 0OR1: FOKE2040, 223 | 

n 225 FOKES2F13,3: F0OKES2712, 0: POKES2F10,0 He 
= 250 DN FEERK(32820) GOSUB F10,16550, 2410, 3180, 3710, 45680 Be - 
| 280 GOSUBSs40: POKES2825, 0: POKEV+30,0:5Y515009 


ISHiNHEHIENEH 





m—— - 


IR 310 SYS17300:FORX=0T020: NEXT 
ı # ! 320 IFPEEK (203) =5STHENGOSUB7000 
| ' 340 IFFEEK (52825) =1THENGOTO430 I - 
| 370 IFPEEKtS52825)=2THENGOTO21O > 
| 400 GOTOZ310 
a4 
De 


Ei 
Tr 


r T T 77 
#e4 


er 


HRTEHT 
£ nr“ & u 
A 


Me" SFCtisy "ARE" 


ii z 


IIEk##r 
Er ® 
ss N: 


Hi 
ir 





I 

= 

Per 

un 

D 

m 

5 
E 
Gi 

BE 

—. 

mi 

Lem! 
“5 
m 

„I 

I Zu 
5 


—. — oo — 


5 = — FE a = = Zn .: — r- r _ el m EN 
ng {| Pe w E 2 4 I: h ur ww 3. = w 2 een ma. ii. - ig e. an Mi . & m 4 
4 E— E == “ di “ a = FE '  . * Ber _ Fe og =>: ® = . 

= = Un ® — ı ne > 6 Eu e 


ln ven De b> - E [; + [_ - Pr. 
m en Hr Ei Ann En 7 nd Tr a - — Eh FE _ em u nn BE been. E 
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| 
N 
| 


= 
dd 


mn. . 
g ’ 
7 a u Kar Fe 


er. 








— y— m ———— —— 1. um ne mem = —_ Er  — Un = .. oe Eu 





ı 500 PRINTSPC(1SI "X a £ 
ı- Du FRINTSFELISI "Dexter serickee" M 
‚ 580 FORN=6T07000: NEXT: FORT=10T01S: POKEV+T, O:NEXT Der 
370 FOREI005,1:F0ORKESZBZO, 1: FRINT"T'r6GOTDZO un 
ı 8640 ı Ba 
' 670 FRINT'FBBbbinLı » SCORE 0000. HIGH 0006 TI 00"4 ö 
| 700 PRINT"IEITHEm EIt+— (A | | 
' 730 PRINT"IBRBRRRRBRF M. BALDAÄUF EMEN "sPEEKIS2B15}:" BILD"+PEER(52820) 
. 750 FOKE V+15,VGrlıPükE V,X3rFPOKET2800,X3rP0KE V+l,YarPOKES2B80L1, Y3 
90 FOKEV+2, XI: FOKEV+S3, Y1: POKEV +4,22: POKEV+S5, YZ2:FORE 37905, 1 
ı 800 FOKE1045,FEEK (52716) :FOKE1044, PEEK (52917): FOKE1043, FEEK (52718) 
801 FOKEI1682, FEEK (52717) 
ı BOZ’FOREI1055, FPEER IS2F207 35 FOKE1055,FEEK 152921): FOKE10S4, FEEK (52922) 
803 EDKE1055,FEEKRI32723) 
ı 820 FOKEV+A, 4: POKEU4T, Ya 
ı 821 POKES0000, 811 POKES0001,82 Fr, = 
ı 822 FOKES0002, 53: FOKE50003,54 - 
23 POKESO004, 35: FOKES0005, Sa kanı 
ı 824 FOKESO010,BlrFOKESCO11,B2- 
' 825 POKES0012,B3:FOKES0013,B4 
' 82& PORES0014,BS:FOKESO0LS,B& 
850 IFPEEK {52702}, < HL THENFOKESZT00,WLIFPOKRESZFOL,WZ2 
' BB0 RETURN 
ı 710: Nr BE 
' #40 POKE&S4&, FA ee = 
ı #770 PRINT" RIRINMERKERERTEEL) PIPPI FE PP EIER" | 
' 1000 PRINT"tKA#t2KKr)8)% m Hirirk": | "@ = 
ı 1050 PRINT"I II EEEHFETN In =) 28"; >E 
‚ 10860 PRINT"FRFTEIITIE ff Hr)sE"; Ian 
ı 1090 PRINT"PFTFER) I SrrrrrrTr>r777>27 =42"} Me -- - 
‚ı 11206 FRINT" HE’ 5:)% ft “KE"; R 3 
i 1150: PRINT" s)E(/f/=tr" ft =#%*"; Mi 
‚ 11806 PRINT" cu) > ft SKktKEK”: u ve: 
ı 4210 PRINT"sY ih 77% HPFHHSPPHHHP PH H 
‚ 1240 PRINT") i =’ BIH "z ı 
1270 PRINT" I’ /FFST m" STHE START ":FOKES45, FA 
ı 4300 PRINT"ItC <<? <t ee" FOKES4b, FA Fa 
' 41330 PRINT" = = m ":FOKEöS4S,FA | nr 
ı 15650 PRINTNF” m “e ="; FOKES4&,FRA = 
4370 FRINT"IR = ={ De, "  FÜHEG46, FA Be = 
; 1420 PRINT"t’ Hu o =kh WErKETEII HK ":FOKEA45, FA ia 
1450 PRINT"#( M zii BERFETIHTKHEHE RN FOKES4ö, FA ° jr» > }1 
1480 PRINT"#” m. mi)" SEHFFETIELFIEFEFI FE" FOKE545, FA Zu ;® 
iS1lo FPRINT"EL m SIEEIE Se))ıg dere dhgggedieggre"g 
1540 PRINT’IIA m $IEERE) V)SESEKERREREEEIIKER LIFE 


1570 PRINT"ERIS SEN) VI) NEIRFIEIIILI ERTL EI IH I I FOREZOZ3, 42: POKESSZ2 FI, FA 
1800 VG=2: X1=40: Y1le117:X2=58: Y2=2201 %3=10: Y5=177: %4=15 1 Y4=122: Wie65: W2elT7 


, 1610 81=110:52=100:83=210:54=125135=80:856=180 ı 

' 1620 B1=200+B2=93:B3=117:84=103:B5=22: Bb=127 Fr 
ı 1530 RETURN 0 Ei 
| 1660 ı | TE 
ı 1690 POKE&45, FA 

; 1720 PRINT" EIEEKKEKKKHER DI TIP) I PFIEREREIP FI DI IK ET} @ 

ı 1750 PRINT'H?7PIP) KL m Hı)a)% HIEkaE", | = 
‚ 1780 PRINT")& Hi m DE 2 5 =)Esk"; u ba 
' 1810 PRINT"t =! f =)K) TR Hrıak": 1A - BE 
| 1846 PRINT"’ Hu oo Sraktın CHE HrF>"; Mn == 
\ 1870 PRINT" min 2 5 5 2 5 ven) U 'aı 
‚ 1900 PRINT") 8% sıar332)" Mi S&" . 
1930 PRINT" MWIUERTIIIER | 5 3 
ı 1980 PRINT"« #% H7R O HTIE s.)% Gıy)yı!z Bi i 
1990 PRINT") <I% Brri/SSehEN Hr)EKE"; | 
ı 2020 PRINT"?  <# ={ Sur HIiKE"7 re: 
' 2056 FPRINT"$) -#tı% Heızih)% on 3 Sr #8 
ı 2080 PRINT"tI///=)ER 5: 8% HYEkla))ırk arE"; | Ban 
‚ 2110 FRINT"#( S)EREEr))) ER HIRsErakE)E 0 =#88"; | 

: 21406 PRINT"? #1) 57775 > PIE #))8)7>77& 488"; | en 
ı 2170 PRINT" #7 om Hu =’) =)4#"; Be: 
' 2200 PRINT" a =Y us =}4%"; 1 Te 
ı 2230 PRINT" nl *° a) Ss) ) 88"; en. : | 
2256 PRINT":7% Sees l m Beg)gr)Ekke", @ Kaya 
ı 2290 PRINT"K))asgee )IREREREREER I m SIDERERRFEER" | Be 
I \ ni 
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:B 


ri 


—— 


über me mer Ei mil, Me ah Mir me sum“ ein äh oe a 


HE mer ME EEE EEE ÜHmmEm <emmN. Smmm= mi. cm, sem 


24 HOMECOMPUTER 


sr IRRE L POKE2023,, 42: FOKESE2F5, FA Nr E 


| 
| 









2320 PRINT"EERKISEKKEEIKKERERRLNK) ) : i 
2350 VE=0:X1=148: Y1=205: X2=145: Y2=92: X3=65: Y3=124:%4=15: Y4=205: W1=65: 2-33 er 
2360 51=100:82=100:153=250: 54=2204 5 5=40:56=140 | 
2370. Ble100:B2=158: B3=50: B4e109: B5=255: Ba=206 
2380 RETURN fl 
2410 4 Be 
2440 POKES46, FA 
2470 PRINT" STRTTENK RR KRK) I) 1) >7>77P>oskehkkurt tk) >72) 5 = 
2500 PRINT"KEII)IEHTE)% HııEı% BEE | 
2530 .PRINT"?P>7& Hx% =t)% 51", an 
2550 PRINT" SıstııY | a SIE" @ 6 
=9°70 PRINT" 544 >74)” sur =’ EIER Sur = 
2820 PRINT" =)k Hl 2 SEHIE)H777% =)44#"; | 
2650 PRINT"ı7 5:4 %' #° S>> 7 o 0m HIrEr"; Se :- 
2680 PRINT"IEI)G =i mE HE 0m. ME IE 
2710 PRINTTIBIR///HTE 00 od a Ja - Dit 2 
‚2740 PRINT"#)’ De: 70. 06 :: 7277) ih Er 
2770 PRINT"RIK =, 46” LT ik # =}#"; al 
2800 PRINT"##’ Hrasr)/r/= IASE x <4#"} ee 
2830 PRINT"##" $% # rn’ =& =#4"; | HE 
2860 FPRINT"#)% 3) Eu zErl =4#4’ BIER": WE Dei) 
2890 PRINT"X( =} ( HE o mtl <I>? #377" & 
2920 PRINT"#) 57%’ Cr ci’ = Ei Ei 
2950 PRINT"&? #37? 7 <a)% m" ® D. 
2980 PRINT"#% a 2% s)ıKik m" [m 
3010 PRINT"Xt A str )KEE)E om oo Sygtrjte" n 55 
040 PRINT"#)R a Ss EPTTIUTTITOHERREERETTER TER Taler Ak 
5070 PRINT"HEh:Ge 1 1 REES EREREREERELT ENTER RK IR U POKE2023, 42: PORESS295, FA IE 
3100 VYo=ad:ı X1=205: Y1=95ı 122255: Y2e164: 1365: 3e2054el5ıY4el07:Ulel7ı W233 '@ E= 
3110 S1=40152=110:53=230:154=130155=150:56=205 ! eh 
3120 B1=115:B2=181:B5=45: B4=1097: B5=186: B6=141 P* ES 
120 RETURN : 
3160 ı gr 
3170 FOKE546, FA eh 
3220 PRINT" PIRlaeImME Es HPE> 757 PP EHE KELI EEE KIEFER" E 
3250 PRINT")& ff 1a Werde 9 Terre Ar rd er ar dr De De de ir) EEE DE EU H E 
3280 PRINT"? n =( HH": en 
3310 PRINT"« " Sir" En 
3340 PRINT""/FF SS EEner wi er F: 
3370 FRINT"I u EU HERE m u: 
>400 PRINT" L HT. HEHE) GEFIEHREEE) DH "5 
3430 PRINT"” # a SE WE Brei zu 
3450 FRINT"IERH)8% Haık)ırz)E #1)" 
>40 FRINTY 777777 741 1% H>FFR zen; '® 
3520 PRINT" Hey ft <A] Na 
3550 FRINT" HyyeE% ft Sıpıjıg% et R 
ss80 FRINT" H?>))A 1 sy) akrtrt ///=="; er! :E 
35810 PRINT": :334% EL IESERUSEIESSLERSE BE a 
3640 PRINT"I& #ırı% bee 930 ı De Dear 1 
=670 PRINT"L Hr #HIltE)% =£8"} 1 w 
3700 FRINT" 4 H2;% ir ar. ur"; \ 
750 PRINT"? f =14"3 ı Be 
S7&0 PRINT" ur T 51171 ,% =:r"; x 
=790 PRINT"I% sun f BriIEkEEE)% $))7"3 nr Kai 
3820 PRINTYKEREREIHIG SG REES POKE2O2F, 42: FOKESS295, FA Fe 
3850 VG=0:%1=40:Y1=221:X2=32: Y2=125: X3=65: Y3=108: X4=15: Y4= 184 Hi=e17ıW2=17 i Er 
>SB&0 51=240:52=100: 55=170:54=1501 55=140155=204 I Ki 
3970 B1=259: B2=101:B83=245: B4=221: B5=658: B6=205 u 
3880 RETURN | 3 
3910 REM BILD4 (a B 
3940 POKE646, FA | Ii> 
3970 FRINTY EDEN EEE PIPPI PT FF III EI PIPPI IT TERN | = Ei 
4000 PRINT"F)I3% 7 ur =+"; ww ® 
4030 PRINT"##% Lu =)% x": Et 
4050 PRINT" #% f Si z%"; oo 
40970 PRINT"” SER EBESEA Eu #1331% =+"  - 
41206 PRINT" I/II EI $ıı:253;)7” Hı))E 4 Bu Ä 6:3 
4150 PRINT"t FEIERN" 57)2417>))% =%' u BB u) & 
41806 PRINT" Wırkikk my) Hr ///wl mh) . 
4210 PRINT" HIER) ER DR 3 mi ke By) rn : - 
4240 PRINTHIKISZERI? Sr) Kt Ho = #777" en . - 
u Re 
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Pr ME Ta u a a: a ae Ah Men Mull ME: HG: EEE: U" TEEN CHEN) MEER“ EHEN A SEEN MR TE üig VE E Ben 


. PRINTSFC (11) "DAS ENDE GELANGEN." 


, PRINTSPC CB) "IRGEND GEHT MIT." DURCH! ES 
PRINTSPE(I2)"MEFIRE ZUM STARTEN" IST GLEICH 
 FORN=OTOBUO „VORÜBER“ 
IFFEEK(56320)=111 THENN=2000: RETURN ES FOLGEN 
NEXT DIE LETZTEN 
GOSUBEO2O = 
PRINT" SIIMIEKEEESE" SPC.(7) "ACHTUNG VOR DEN BEWOHNERN" METER... 





rt cxr# 3 ou" 


PRINT"EI% 

FRINT"FEI% =)4 =) K ///S884}° Er" 
PRINTaHS” at our HOT uk 

FRINT"?F>& =)? HTITE #Beegee "gr 
PRINT" 0 <ım er H7?IHDI ER" 
PRINT" 0 #” m 1 #7 

PRINT" m #8% m $jrıyyjıaı ZH ulr 
 PRINT"ezze spa DER pa pas III I IRRE ı mx"; 


3 BE A ES ORTE ER RER 
I PRINTUREEHKEREKEEREF FE ER FE ER RE RER REIFE HE IER ER 
 PRINTTKHEEERKERERHER EEE EE EI FREFE I K  e LFOKE2023, 42: FOKESE295,FA 


VG=2: X1=32: Y1=205:X2=202:72=149: X3=69: Y3=1689: 4=15: Y4a195:W1=-335:W2=53: 
51=140:52=92:83=240:54=180: 55-551 56-1 85 


0° B1=200: B2=190: B5=122: B4= 134: B5=185: B6=149 


4 

ı POKEs46, FA e Ware 

PRINT" Send THE END": POKESAG,FATPRENT A HI PERP>FITH 

) PRINT"ERFERERREERKE"  : FOKE646, FAR PRINT" =) Pk <a" 
PRINT" akt m "rrPOKE646, FA: PRINT" a 5 

0 PRINT"TIKE r "I:POKES4E, FAIFRINT" sih m ="; 

o PRINT"EEX "}: POKE646, FALFRIN] A sıh’ s =)"; 
PRINT" ae$/ ///234242" : POKES4b, FA:PRINT" 448% SL =} 

ı PRINT"TIE# +#2":: FOKE545, FA: PRINT" Fr> en nr 
PRINT" BE* tk": POKEö46, FA:FRINT" m Sir 0 ar" 
PRINT" mE 142": POKE646, FA: PRINT" m manH’ /// lc" 

3 PRINT"EEREIK 488": POKES4E,FA:FRINT" f =HH)u 0 ="; 

oO PRINT"E #4 #88" POKES46, FArFRINT" Sri //=iEl ah 
PRINT"@A #8  KX8"TPOKES4B,FAIFRINT" FR cE# #77"; 
FRINT'I &4#  x%#"j:POKEöS46,FA:PRINT" a7 3 26 

"PRINT'"M #88 333", 1FOKE646, FA:rPRINT" =. =) gg" 

PRINT"4 #43 42": : FORE&S4S, FAı PRINT" 5))’ JERBBEnDE $ vn 
PRINT" #4 Kan s POKEGAB, FAıPRINT" LIE SE EEE BE © 2 2 2 3 5 2 S SR EE u 
PRINT"E ##ktkktat"s: POKEAA6,FA:PRINT" SEE)& 0 SIYKIEREKKRRERKERN: 
PRINT"Fs ers) EEK): 119% stats) Ir) Er)"; 


PRINTIIIIYIFREEI I II I SEHE) ER) EEE" 

PFRINT"IIH III IIEIT TER =) Ess Er) Ir "5 th 
PRINTTRRETEEIDEI DD INH JE ERTEER EIKE I EI I KR EN  ı POKE2023, 42: FOKESS295, FRA 
VGe0:X1=45: Y1=133:X2=174: Y2=221 1X I=e65: Y3=181:%4=74ı Y4=200: WI=33: W235 
51=70;5 52=100: 53=250:54=110:55=190155=140 

B1=745: B?=1 70: B3=210:B4= 174: B5=170:B5=150 

RETURN 


GOSUB 710 ı GOSUBS40 

SYS1l&000:G0TD 3070 

PRINT" SOG" SPC (EI "EREHTKERELLENKEIEFIFR EIKE IE 
FORT=-iTEF:PRINTTABLEI"F tıBbbbbbkbaker'; 
NEX i 

PRINTTABLSS "EREREEIKERETEH ENTER EI IR IEIER" 

RETURN 


" GOSUB 8020 


PRINT" SEIEN" SPC I(10) "MMKB-SOFTWARE FRESENTS" 
PRINTSFPELIFI" SL" 

PRINTSFE(ISI"SETHE EIt"r REM MITTLESTRICH = SHIFT ++" 
PRINT: PRINTSPC(12)"2 BY MKB IN 1985" 

FORN=HTO4000:NEAT 


’ GOSUBSU2O 


PRINT” Aleiinieintninielei" SPEIBI "BEI DIESEM SPIEL MUESSEN”" 
FRINTSFEIIOI "SIE IN WERSCHIEDENEN” 
PRINTSFEIBEI"ILEVELS DURCH 4 BILDER AN" 








FRINTSFEC (8) "ZNEHMEN SIE SOVIEL WIE ES" HALTEN SIE 






PRINTSPC (BI "DER HOEHLE. SIE DUERFEN" 
FRINTSPC(7} "NACHT BERUEHRT WERDEN. " 
PRINTSPC(FI"AFI MUSIK ON/OFF »" 
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; : ze 
en 6290. PRINTSPE(H"FS PAUSE" 3 Hr .: 
® . 6300 PRINTSPE(L2)"NSFIRE ZUM STARTEN“ - ee 
1.8310 FORN=0TOB00 | = I. 
Fu 6320. IFPEEK (54320) 11 1THENN-2000:RETURN N: m. a - 5 
1.6350 NEXT I, Er De 
1 6340 60106070 le Pl > is 
'® ı 7000 DF=0 nr In ° 0 5 
| 7910 FOKE&46,DF sr —H fs ll, ' 
| u | 7020 PRINT"MSPULISI"P AUS E" 2(9/ er 7 Sl 'a 8 
Bazdisr a ee a U Lo; En | : 
3.7032 FORT=OTI LO:N | " e BE -- 
ı® : 7035 FOKEIIB 0: IFPEEK (203) =STHEN70SO | dh; te, ZI @ IE 
7040 6070701 ER eo Gen Rx re 
4 7050 FORT=0T040:NEXT Sp; a AY ae a 
| ® 7080 PokE1r8,0 Vet e u 
| 47070 PRINT" MW"SPE(LS)" " h “on | a 
®: 2000. BETUR en 0 De 
ı 8000 4 0 
18010 PRINT" I" GOSUB910: GOSUB640 ce 
© | 8020 PRINT" Mirtetepn NSPC(IS)"RRERKEREKE" :@ = 
j 8030 PRINTSPC (15) “r 1" ER 
© | 031 PRINTSPC(IS)"D6 LEVEL =" u 
ı 8032 PRINTSPEIISI"E sg" v0 
1 a EEE ne 
® ı 80840 FORT=0TO100. | mE 
| ' 8070 POKE646, Tt PRINT" BEKDNTRDKDNDEKERENDEIKDEE ISPEIZZIPEEK (1005) Ka 
| 3080 NEXT |  ® 
| ; 8090 RETURN | | ai ale 
a Li 
Bu. ee Sean RE FereR ee 





Sie haben aus irgendeinem 
Grund keine Gelegenheit, 
ne zu an wu 





bugging“, „entlausen“, 





Oder nehmen Sie z.B. die „Bugs“: 
„Bugs“ sind nicht nur die niedlichen 


dern eben auch ungeliebtes Fehlerpoten- 
tial, welches sich bisweilen recht schnell 
in ‘Ihr Programm einschleichen kann! 
Folge: Sie müssen dann erst einmal „de- 
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kleinen gefräßigen Monsterkäfer, son- 


Der HÖOMECOMPUTER bietet Ihnen - 
sozusagen fix und fertig - Top-Program- 
me zu einem günstigen Preis. Wir mei- 
nen, das sınd Preise, die man nicht ab- 
lehnen kann. Ein weiteres Plus: Sie er- 
halten von uns, dem TRÖNIC-Verlag, 
INNERHALB VON EINER WOCHE 
den kompletten Datenträger. Die BE 


| il Wer allerdings Sortimentsübersicht über die Spitzen- 
ler Vin | nicht den „Kammerjäger* spielen Software finden Sie auf den Seiten 78 
möchte, oder wer keine Zeit hat, das und 79. Also, schnell umblättern, die 

Programm selbst einzutippen, dem gewünschte Software aussuchen, den 

kann geholfen werden! Bestellcoupon ausfüllen und „ab mit der 

| Post“ an den TRONIC-Verlag, Postfach 


41, 3444 Wehretal 1. 

Falls es Ihnen nicht schnell genug gehen 
kann, dann rufen Sie uns doch einfach 
an; Unter den Rufnummern 
05651/40643 oder 40693 können 
Sie Ihre Bestellung auch mündlich auf- 
geben! Das HOMECOMPUTER-Team 
wartet auf Ihren Anruf! 
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Hallo Software-Fans! Der „Homer’s 
Club“ im HOMECOMPUTER braucht 
Eure und Ihre Hilfe! Wir suchen die 
beliebtesten Software, diein Ihrer/’Eurer 
Gunst ganz hoch stehen! Ab:der näch- 
sten Ausgabe des HOMECOMPUTER 
wird es eine „Software-Hitparade“ ge- 
ben. „Homer“ wird die bei den Lesern 
beliebtesten 20 Spiele in einer „Chart- 
Liste“ veröffentlichen. 

Bitte schickt der Redaktion Eure Vor- 
schläge per Postkarte! Und so wird’s 
gemacht: Man liste zehn Top-Program- 
me auf und zwar nach der persönlichen 
Rangfolge. Die Angabe des Systems 
oder des Herstellers bitte auch angeben. 
Eure/Ihre „Nummer Eins“ erhält dann 
[0 Punkte, die Nummer Zwei 9 usw, Für 
den leizten Platz gibt es dann noch einen 
Punkt. 

Aus den Einsendungen ermitteln wir. das 


| TRONIC-Verlag, Postfach 41, 


»HOMER’S« 


„Software des Monats“. Also auf, seid 
nicht faul! HOMECOMPUTER und 
„Homer“ warten auf Eure/Ihre Mitar- 
beit! 

Postkarten bitte an „Homer’s Club“, 
3444 
Wehretal 1. Und: Unter allen Einsen- 
dern werden insgesamt 20 komplette Da- 


 tenträger verlost! (M. K.) 





Computer-Club Elmshorn e.V. 


Der Verein wurde im Herbst 1983 von 
Schülern der Elsa-Brandström-Schule 
Elmshorn (Gymnasium) gegründet. Im 
Dezember 1983 wurde der Verein umor- 
eanisiert, Aufeiner Mitgliederversamm- 
lung beschloß man, den Verein im Ver- 


'einsregister eintragen zu lassen. Das 


Vereinsziel bestand darin, den ideellen 

Interessen aller Anwender von Heim- 

computern zu dienen, Was man darunter 

verstand, zeigt sich in den Aktivitäten, 

die seitdem durchgeführt werden: 

— Kurse in BASIC I, BASIC II und Z 80 
Assembler 

—- (jemeinsamer a der’Hannover- 
Messe 

— Herausgabe einer Clubzeitschrifi 

— regelmäßige Clubireflen alle 14 Täge 

— Hard- und Softwareeruppen 


Weiter sol 

Liebe: Freundes ‚unserer „Club- 
ecke“! Wir vom HOMECOMPU-- 
TER-Team freuen uns über Be- 
richte, Termine und Vorstellun- 
‚gen. „Weiter so!“, so. nur kann das 
Motto: lauten. Denn: Viele Leser 
interessieren sich für Eure Clubs. 

Anregungen werden gern. ‚über- 

nommen; ofımals werden durch 
- Eure Berichte (die Grundsteine 
für einen neuen n Club el gelegt. 


Sn ‚mit. ‚Euren Bis 
auch einige Fotos mit ‘an ins. 
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— Informationsveranstaltungen 

In der Zeit vom. 5, bis 7, Juli 1985 
fanden in Zusammenarbeit mit den Be- 
rußschulen des Kreises Pinneberg in 
Elmshorn die 1, Eimshorner Computer- 
tage staft. Am 5. 7. hatte man in:der 
Elsa-Brandström-Schule zu einer Po- 
diumsdiskussion eingeladen, an der Po- 
litiker, Lehrer und Clubmitglieder teil- 
nahmen. An dem darauffolgenden Wo- 
chenende präsentierte man in der Ein- 
eangshalle der Berufsschule und ın eini- 
een Klassenräumen eine Ausstellung. 
Mitwirkende waren die Elmshörner 
Händler, die Schule’ selbst und Mitelie- 
der des Vereins. Darüber hinaus wurde 
versucht, überregional . Hersteller zur 
Mitarbeit zu bewegen. 

Der Verein umfaßt c ca. 50 Meer. 


‚Egal, obin Schwarzweiß oder Far- 
bei 
Vielleicht ‚fällt Euch zusätzlich | 
auch eine netie Geschichte: ein, die 
‘bei Euch im Club für Furore oder 
‚Gelächter. gesorgt hat? 
80: etwa, wie Ihr angefangen habt, 
‘oder wie Opa walmachlen; gen 
- Floppy in.den ‚Toa tert 
hentlich, natürlich)... | 
. Das HOMECOMPÜTER-Teum 











- Originelles gesucht! 


Tschuldigung, (JH 
können Sie YA 
Hp 


i 


nt 
Wie Sie. sehen, hat „Homer“: es ganz 
schön dick in seinem Rucksack. Er ist 
pausenlos unterwegs, um die besten, orı- 
einellsten und witzigsten „Compi-Sprü- 
che“ zu ergattern. Doch: Von seiner 
Tür-zu-Tür-Taktik hat er Abstand ge- 





mir vielleicht 


helfen? 


| nommen, der Homer, Zu viele Enttäu- 
| schungen hat er erlebt, und zu wenig 


echte Computer-Liebhaber hat er ange- 
troflen. „Homer“ bittet nun seine 
HOMCOMPUTER-Leser, ihm behilf- 
lich zu sein. 

Kurz: „Homer“ fragt, wer kennt origi- 
nelle Sprüche oder Witze rund um den 


Computer? 


Und: Mitmachen lohnt sıch! „Homer“ 
verspricht für den Compi-$pruch oder 
-Witz, den wir abdrucken, einen „Fin- 
derlohn® von 20 Mark. Wer sich an der 
Aktıon beteiligen möchte; schreibt bitte 
an den „Homer’s Club“, TRONIC-Ver- 
lag, Postfach 41, 3444 Wehretal 1. 
(M.K.) 


Der Monatsbeitrag beträgt DM 3,—. In 
besonderen Fällen kann auch eine Er- 
mäßigung erfolgen. 

Die Anschaflung eines gemeinsamen 
Rechners ist bereits beschlossen, jedoch 
wartet der Vorstand noch ab, was die 


Industrie an neuen Geräten anbieten 
wird. Eine Vereinsbibliothek befinde 
sich ım Aufbau. 

Sehr interessiert ist der Club an Kontak- 
ten und Erfaährungsaustausch zu ande- 
ren Clubs. 


Die Kontaktadresse: Computer-Llub 


Elmshorn e. V., Hofweg 3, 2200 Klein 


Nordende bei Elmshorn. 


Der Computer-Clnb. Tr e. Y. 
2300 Klein Nordende 
Hofweg 3 


sucht für seine Vereinszeitschrift 
Artikel und Listings. Wer ist zur 
ehrenamtlichen Mitarbeit bereit? 
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C.U.C 


CPC 464-USER-CLUB 








AMSTRAD-SCHNEIDER 


Der C.U.C wurde im Oktober 1984 ins 
Leben gerufen. Er ist einer der ersten, 
wenn:nicht gar der älteste User-Club für 
die CPC-Computer 464 und 664. 


Er hat momentan über 100 überregiona- 
le Mitglieder aus den Ländern Üster- 
reich, der Schweiz, Deutschland und 
den Niederlanden. Anfragen aus Frank- 
reich, Luxemburg, Spanien und Grün- 
land liegen vor, was eın Zeichen für die 
internationale Bekanntheit des C.U.C 
sein mag. 


Das Hauptanliegen des C.U.C war und 
ist in erster Linie die Information seiner 
Mitglieder, weniger die Pilege regionaler 
Treffs, was allerdings durch hervorra- 


' gende Initiativen einzelner Mitglieder 


mehr als ausgeglichen wird. Das Medi- 
um der Information ist ın erster Linie 
eine Clubzeitschrift, die zur Zeit mit 
monatlich 30-40 Seiten erscheint, und 
nicht nur einseitig geschrieben wird, 
sondern ausschließlich aus Beiträgen 
und Anregungen von Mitgliedern be- 
steht. 


In einer durchaus beachtlichen Zahl von 
Informationen war die Clubzeitschrifit 
„schneller“ als die Magazine, was so- 
wohl den guten Kontakten mit Herstel- 
lern in England, als auch der Tatsache, 
daß die Zeitschrift bis zur letzten Sekun- 
de für Neuigkeiten offen ıst, zu verdan- 
ken ist, 

Der C.U.C besteht in seinen Mitgliedern 
aus einer guten Mischung von Anfän- 
gern und Fortgeschritienen, von profes- 
sionellen Anwendern bis hin zu profes- 
sionellen Programmierern von Großan- 
lagen. 

Den Mitgliedern steht eines der größten 


Hallo 





VC-20 Freaks! Wer hat Interesse in einem Club mitzu- 
machen? Der CVC hat 13 Mitglieder und neue sind herzlich willkommen! Außer- 
dem gibt's eine Clubzeitschrift. Dirk Weißenborn, Falkenweg 66, 7400 Tübingen 


Software-Angebote Europas zur Aus- 
wahl, Weit über 500 Titel können be- 
nannt werden, knapp 300 Titel werden 
angeboten, davon ist mehr als. die Hälfte 
ständig vorrätig. Es gibi keinerlei Kauf- 
verpflichtung. 

Außerdem haben die Mitglieder Zugriff 
zu einer Programm-Bibliothek freier, 
nicht kommerzieller Software. Mitglie- 
der können hier auch Programme bei- 
steuern. | | 

Es besteht die Möglichkeit geeignete ci- 
gene Programme zu vertreiben. Es sınd 


. bisher noch keine „Projekte“ gelaufen, 


was bei einem überregionalen Club auch 
etwas schwierig ıst, doch gibt es Bestre- 
bungen eine Mailbox einzurichten oder 
per Modem Kontakte zu erweitern. 

Die Mitgliedschaftsgebühr beträgt DM 
78,- pro Jahr. Eine Kündigung ist nicht 
notwendig, die Mitgliedschaft verlän- 
gert sich auch nicht automatisch. 

Eine Aufnahmegebühr von DM 20,- 
wird erhoben zwecks Abdeckung von 
Vorlaufkosten und Werbung neuer Mit- 
glieder, wo dieses nicht kostenlos ge- 
schehen kann. 

Es gibt auch eine Probe-Mitgliedschaft. 
Sie läuft für drei Monate und kostet 24,- 
DM. Sie braucht nicht gekündigt zu wer- 
den, kann aber nicht verlängert werden. 
Die Aufnahmegebühr beträgt DM 10,-, 
wird nach Ablauf eine Mitgliedschaft 
eingegangen, so ist die Differenz zur 
Aufnahmegebühr nachzuzahlen. 
Aktuelles Info und Aufnahmeantrag gc- 
gen DM 2,- in Briefmarken, die beim 
Eintritt angerechnet werden, bei: 

C.U.C 

Fred Denissen 

Postfach 10 64 21 

D-2800 Bremen I 
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ZX-Profi-Club 


Der ZX-Profi-Club ist als Informations- 
quelle und Bindeglied für alle Spectrum- 
freaks in Deutschland gedacht. Er ent- 
stand aus dem Bedürfnis heraus, die 


noch ungenügenden Kontakt- und In- 


formationsmöglichkeiten der ZX- 
Freaks zu verbessern. 

Die Aufnahme in die Clubmitgliederli- 
ste erfolet gegen 2,- DM. Ziel ıst es, 
Informationen über die allgemeine 
Computerszene zu sammeln und diese 
in Form einer Zeitschrift (erscheint 
wenn möglich monatlich für 3- DM) 
den Mitgliedern mitzuteilen. Durch eif- 
rige Mitarbeit und großes Interesse der 
Leser wird es möglich sein, dadurch ei- 
nen den Ansprüchen der Specirum- 
Freaks entsprechenden Erfahrungs- und 
Informationsaustausch zu schaflen. 
Man möchte mit dem Club keinen Han- 
del treiben oder Gewinn erzielen; des- 
halb gibt man diese Zeitschrift zum 
Selbstkostenpreis ab und will den Preis 
weiter senken, 

Jeder ist dazu aufgerufen mitzuwirken, 
um sich und anderen noch mehr Freude 
am „Computern“ zu schaffen und um 
vielleicht zu einer Lösung seiner Proble- 
me zu kommen, 

Natürlich soll.er nicht mit leeren Hän- 
den davongehen; man zahlt angemesse- 
ne Honorare für eventuelle Bemiühun- 
gen. 

Wenn dıe Mehrzahl der Mitglieder ZU- 
stimmt, beabsichtigt man, eine SW-Li- 
brary zu eröffnen. Leider muß ein exter- 
ner Beitrag erhoben werden, um die ver- 


| schiedenen Programme finanzieren zu 


können. Falls Interesse besteht, bittet 


| man um Mitteilung; der Beitrag richtet 


sich nach der Mitgliederzahl. 
Na, haben wir den Nagel auf den Kopf 
getroffen?, meint der Club. Dann meldet 
euch an und macht mit! Übrigens, unser 
Clubinfo ist schon erschienen, Wenn ihr 


| Interesse habt, für 3- DM ıst es zu 
| haben. Für Kontaktaufnahme schreibt 


an: ZX-Profi-Club, Michael Hauck, 
Lärchenstraße 2, 8091 Maitenbeth. 
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(M.K.) Der geneigte Spieler muß sich 
bei diesem Spiel „ordentlich anfressen“, 
um zum gewünschten Erfolg zukommen. 
Aber: Bei dem „Menü“ handelt es sich 
nicht um Pizza oder Hamburger - nein, 
Punkte gilt es zu vertilgen. Ein extra 
Tip: Wenn Sie ziemlich „ausgehungert* 
ans Werk gehen, haben Sie die größten 
Chancen, soviel wie möglich Punkte in 
„Ihrem Magen unterzubringen“, Doch 
Vorsicht: Bei der Gelegenheit will Ihnen 
„einer“ ans Leder ... 
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ak IK-Spiel- 


er 


u Fr, 


DE Mi 


Nachdem Sie die Eurovisions-Melodie 
begrüßt hat, haben Sıe nun beı „Point 
Eater“ die Aufgabe, die gesamten Punk- 
ie, die auf dem Bildschirm zu sehen 
sind. zu essen, ohne sıch dabei von dem 
Geist erwischen zu lassen. Wenn Sie alle 
Punkte gegessen haben, kommen Sie in 


das nächste Bild, Es gibt insgesamt fünf 


verschiedene Bilder. Alle 300 Punkte 
bekommt man ein Bonus-Männchen. 
Das Spiel ısı für Tastensteuerung ge- 
schrieben, doch das beistehende Pro- 


1 “ 2 
. ee re 


® n . 
zii = Gi Mn -f 
ve | 


gs si EE | 5u ed n 
- ) Tun eteci . e- F n 
[3 ü ” ka u Fi 
u, - u = ir Atzsble MT 
i : ie 
| / ppie el ] 
r} Tef2 — 


eramm ermöglicht Ihnen auch per Joy- 
sticksteuerung durch das komplizierte 
Labyrinth zu gelangen. 


Diese Zeilen müssen Sie umändern, 
wenn Sie Joystickstewerung wünschen. 


760 JPDLI(0};K=PBL{!) 

770 IFK<= 50 THEN GOSUB 1000 
780 IF J>= 20 THEN GOSUB 1100 

790 IF J<= 50 THEN GOSUB 1200 

800 IF K>= 200 THEN GOSUB 1300 
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® | 30 = 210 = 21 
| 4A= INT (RND (1) # 100) + 100 
= LEBEN = 35ı 


& I0O 


| ‚ 10 POKE 770,175ı FOKE 771,481 FPOKE 772,172: FOKE 773,1361 POKE 774,208: FPOKE = 
I®, 775,5: POKE 776,205: POKE 777,1: POKE 778,5ı FOKE 779,240ı FOKE 780, m: 


20 


ce) 
40 
50 


ers 


= ı 24 


- [— 


=-| 


In 


FOKE 781,202: FOKE 782,208ı POKE 783,245ı POKE 784,174: POKE 785,0: 
784,31 POKE 787,76ı 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


HOME 
TAB 


FE ERLERNEN BERGEN 


I 
= 
I 
* 
I 
= 


mm mem mn ee oe m en en zu mr 2 2 Tu ä u 


ge 
n. rl 
1 


rs I 
Tre] 


| POKE 
FOKE 788,2ı FOKE 789,3: FOKE 770,95 
POINT EATER 


I 
| Sin 
(C) MARCUS I w. 
* 8 
RUBENSCHUH H 
Me Tan a an Le Due ER RE a m 
4ı HTAB 101 


PRINT "POINT EATER" 


INVERSE 


VTAB 
WTAB 
REM 
VTAB 
REM 
VTAB 
REM 
VTAB 
REM 
YTAB 
REM 
VTAB 
REM 
VTAB 
REM 
VTAB 


; REM 


VTAB 
REM 
VTAB 
REM 
VTAB 
REM 
„TAB 


NORMAL ı VTAB 12: HTAB 201 


TAB 
DATA 


z2ı HTAB Bı PRINT " + 
&t HTAB Bı PRINT " n : 
3 FREISTELLEN Fri 
10: HTAB 18: PRINT " 4 | | 
7” FREISTELLEN 
1lı HTAB 17ı PRINT " e 
7 FREISTELLEN 
12: HTAB 1&ı PRINT " * 
8 FREISTELLEN 
15:1 HTAB 17ı PRINT " - 
8 FREISTELLEN 
14: HTAB 18: PRINT " 2 
& FREISTELLEN 
15: HTAB 20ı PRINT " 2‘ 
8 FREISTELLEN 
15: HTAB 1Bı PRINT " n 
38 FREISTELLEN 
171 HTAB 17ı PRINT " e 
7 FREISTELLEN 
18: HTAB 18: PRINT " a 
7 FREISTELLEN 
19ı HTAB 17: FRINT " 2 
3 FREISTELLEN 
201 HTAB 18ı PRINT " - 
PRINT " " | 
25: HTAB 9: PRINT "(C) MARCUS RUBENSCHUH" 
159,128,155,128,159,128,153,128,159,128,127,128,147,128,154,12 





RIEF FTIEHT 


ee, va 
rein 


B,til, 255, 63, 120,111,128,127, 255,63, 128,111, 128, 134, 234,137,128,155, | =H 
128,159, 128,153, 128,159, 128,127,128,147,128,134,128,111,255,63,128 | E- 
DATA 111,128, 127,255,127,128,134,128,127,128,111,255,127,128,134,128 es 
ul ‚„147,128,159,255,169,129,159,128,147,255,159,128,147,129,134,255,147 | En. 
Se ‚„128,134,128,127,255,159,4 == 
K DATA 159,128,153,128,159,128,153,128,159,128,127,128,147,128,134,12 0 
9,111,255,635,128,111,128,127,255,127,128,134,128,127,128,111,255 0 
FÜR SDF = 1 TO &i an 
READ T,L Er 
IF ER = 51 THEN GOTO 280 - 
POKE 768,255 - Tı POKE 76#,Lı CALL 770 u 
NEXT SDF Br 
FOR I = 1 TO 10001 NEXT I: HOME | 
FOR I = 1 TO 255 STEP 15: POKE 768,1: POKE 769,51 CALL 7701 NEXT I BE 
FOR LL = i TO 2ı FOR I = i TO 255 STEP 1Sı FOKE 768,1: POKE 769,51 CALL | 00° 
770: NEXT I,LL '.@ Be 
HOME ei 
PRINT ı PRINT "DER SINN DIESES SPIELES IST ES „ DASS " sH 
PRINT : PRINT "SIE VERSUCHEN SOLLEN „ ALLE PUNKTE „DIE" 0 
PRINT ı PRINT "AUF DEM SPIELFELD SIND,ZU ESSEN ‚OHNE " | Bi 
PRINT : FRINT "SICH WON DEM GEIST FÄNGEN ZU LASSEN An 
PRINT ı PRINT "DIE TASTEN SIND ı A" 
ı PRINT " I <- 
ı PRINT " 


PRINT 
PRINT 


-> K" 


zw. km a = m u — His — a. nn m a: Zn er —— 
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= 2 Fe — nn 


5 - ei ———ääZ°n — nn — -—— u. — — ——. - —- 
En a a nn ss, nn nn nn = —n =— 


‚390 PRINT : PRINT " LASSEN SIE SICH NICHT VON DEM " 





| * 200 PRINT ı PRINT " INTELLIGENTEN GEIST ERWISCHEN" | & 
Is! #10 PRINT ı PRINT " VIEL VERBNUEGEN !" | | | 
#5 44 DATA 127,128,127,128,127,128,127,255,111,255,74,128,94,255,84,255, | 
| 63,128,63,255,94,255, 127,255,159,128,159,128,159,128 | 
IS! “13 DATA 159,255,147,255,134,128,134,285,127,255,111,128,111,255,127,2 | 


=5.,134,255,127, 255, 134, 233,127 ,255,1533, 255,134 ,255,127,128 


lee 245 DATA 127.255.111,255,94,120,94,255,84,255,63,255,84,255,84,255,84, 
Be 255 ‚84,255. 94,,255 ,04,255.43,255,43,128,43,255 
| #41& FOR FGH = 61 TD 105 
\ | ©! #47 READ T,Lı POKE 768,255 - Tı POKE 769,L: CALL 770 
418 NEXT FGH 
| 4.420 FOR I = 1 TO 10001 NEXT Iı HOME | 
I®: 425 FORLL= 1 TO Sı FOR I = 1 TO 255 STEP 1Sı POKE 768,1: POKE 769,5: CALL 
| ! 770: NEXT I,LL | 
ia ' 430 6 = 1001 FOR I = 100 TO 1 STEP -1 
|") 440 E=E - 1ı VTAB 1Sı HTAB 7ı PRINT "DER COUNTDOWN LAEUFT ";C 
| 1 4558= PEEK ( - 16336) 
® 450 NEXT I 
450 HOME 


445 FOR S = 1 TO 255 STEP 12: POKE 768,1ı POKE 769,10: CALL 770: NEXT 5 
470 GR ı PRINT LEBEN 
N 480 COLOR= ii 
'®ı 490 FOR I = 1 TO 39ı HLIN 0,39 AT Iı NEXT I 
| =o0 COLORe 1 
= ' 510 HLIN 0,37 AT O: HLIN 0,39 AT 391 VLIN 0,39 AT 0: VLIN 0,39 AT 39 
811 HLIN 0,39 AT 1ı VLIN 0,39 ATI 
=153 COLOR= 13 
| s20 FOR Pi = 35 TOD 37 STEP 2 
| =30 FÜR FP2 = 3 T0 37 STEP 2 
ı® 540 FLOT Pi,P2 
=, 850. NEXT.P2, Pi 
| 540 COLOR= 1 
ı®: 570 HLIN 5,15 AT 5: HLIN 17,25 AT Sı HLIN 29,35 AT S 
| s90 HLIN 9,19 AT 9ı HLIN 23,31 AT 9 
=90 HLIN 13,17 AT 13ı HLIN 23,27 AT 13 
&00 HLIN 5,15 AT 17ı HLIN 25,35 AT 17 
| 610 HLIN 5,13 AT 23: HLIN 17,23 AT 25: HLIN 27,35 AT 23 
ı® &20 HLIN 13,19 AT 271 HLIN 23,27 AT 27 
| &30 HLIN 5,13 AT 35ı HLIN 17,25 AT 35ı HLIN 29,35 AT 35 
630 FOR I = 17 TO 19 
&50 HLIN 19,21 AT Iı NEXT I 
560 HLIN 9,19 AT Siı HLIN 23,31 AT 31 
670 VLIN 5,13 AT 5: WLIN 27,35 AT5 
&80 VLIN 9,13 AT 9ı VLIN 27,31 AT 9 
6970 WLIN 9,13 AT Sl: VLIN 27,31 AT 31 
700 NLIN 5,13 AT 35ı VLIN 27,35 AT 35 
710 WLIN 17,19 AT 7ı WLIN 21,25 AT ilı VLIN 17,19 AT 15 
'@ 720 VLIN 17,19 AT 25: VLIN 17,19 AT 331 VLIN 21,23 AT 29 
Fzie 730 FOR I = 1 TO 200: NEXT I 
| 750 REM 
760 IF PEEK t - 15384) > 127 THEN GET M# 
770 IF M$ = "A" THEN GOSUB 1000 
'& 780 IF M$ = "k" THEN GOSUB 1100 
bo: 770 IF M# = "J" THEN GOSUB 1200 








300 IF M$ = "7" THEN GOSUB 1300 
310 G0TO 1400 
| I000 REM - I - ıG0SUB 5000 
ar 1001 GOSUB 5000 
I; 1010 COLOR= iiı PLOT X,Y 
| 020 Y=Y-2 
Ei 1050 IF SERNt Si = 41 THENY=Y + 2: G0TO 1060 
| 1040 IF SCRNI X,Y) = 15 THEN GDOTO 2000 
FI Iie! 10850 REM 
| 1055 IF SERNI X,Y) = 0 THEN G0TO 2200 
| 1050 COLOR= 101 PLOT X,Y 
> 1070 RETURN 
1100 REM - KK - 
1101 GOSUB 5000 
1116 COLOfe il: PLOT X,Y 
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IF | 
1l5SX=i +2 - 
1120 IF S5CRNi X,Y) = i THENX = X - 2ı GOTO 1050 Bi 
1125 GOTO 1046 ’E 
1200 REM - | - | = 
1201 GOSUB 5000 = 
1210 COLOR= il: PLOT %,Y 2 
1215 XeX-2 
1220 IF SCERNt X,Y) = 1 THENX = X + 2ı GOTD 1080 a u 
1225 GOTD 1040 | ee 
1300 REM - Mi - | os u 
1301 GOSUB 5000 ar: 
1310 COLOR= ilı PLOT %,Y > 
1315 Y=Y+2 > = 
1320 IF SCRNt X,Y) = i THENY = %Y - 2ı GDTO 1050 = 
13253 GOTO 1040 A 
1400 REM 
1405 COLOR= ilı PLOT 6%,6Y 
1410 IF X < 6X THEN 6X = EX - Iı6D# = "NN"IıBL = 1ı GOSUB 1500 
1420 IFX »G6X THEN EX = 6% + lıßD$ = "NN"ıBL = - 1: GDSUB 1500 
1430 IF Y < GY THEN GY = 6Y - LıBL = {ıßDb$ = "UD": BOSUB 1500 
1440 IF Y > GY THEN GY = 6% + IıBL = - 1:60$ = "Ub": GOSUB 1500 
1450 COLOR= 0: FLOT 6%,6BY 
1480 GOTD 750 
1500 REM | 
1505 IF 6X =X AND BY = Y THEN W = WU + 1ı PRINT "DER GEIST HAT DICH GESC 
HNAPPT !turtıım FOR I = i TO 5Sı FOR GF = 1 TO 255 STEP 12ı FOKE 76 
8,lı POKE 759,10: CALL 770ı NEXT GF,Iı GOTO 2110 

1505 REM 

1510 IF SCAN GX,6Y) = 11 THEN RETURN 

1500 IF GD$ = "UD" THEN GY = GY + BL 

i&i0 IF GDb# = "NN" THEN EX = BX + BL 

1520 RETURN 

2000 REM 

2010 COLOR= ii | 7 

2020 U = W + 1ı POKE 758,Aı FÜkKE 759,7ı CALL 770 Re: 

2030 WVTAB 221 HTAB 10ı PRINT "SCORE ı"ıWı VTAB 23: HTAB 20: FRINT "HI-SC - 
ORE ı"3HI 

204060 IF W = 198 + QW THEN XV = kY + 11A5 = KY 

2043 ON AS GOTO 3000,5200, 5350, 58510, 7020 

2045 IFW = 300 = IO THEN FÜR I = 50 TOD 200 STEF 10ı PÜKE 7&88,1Iı PÜKE 7 
597,10: CALL 770: NEXT IıLEBEN = LEBEN + 1ılü = IO + 1 

2050 WTAB 23ı PRINT LEBEN 

2050 RETURN 

2110 REM 

2120 LEBEN = LEBEN - i 

2125 IF LEBEN = O0 THEN GOTD 10000 

2130 X = 21ıY = Sı6Y = 21ı16X = 21 

2140 HOME ı RETURN | 

2200 GOTO 10000 

5000 IFX< =53 THENX = Iı IFY< =53THENY=3:ı IFX> = 37 THENX 

= 37: IFY> =37THENY = 77 

5100 RETURN 

&000 HOME ı PRINT "SIE KOMMEN IN DAS NAECHSTE BILD "ı FOR I = i TO 255 STEP 
15ı POKE 756,1: FOKE 789,30: CALL 770: NEXT I 

00 OU = 209 

5007 AS = 0 

5610 COLOR= iiı FOR I = 2 TO 38: HLIN 2,38 AT Ir NEXT I 

&020 COLOR= 15 

Ahathı FIR Pi = 5 TO 37 STEP ?2 

050 FOR P2 = 3 TO 37 ETEP 2 

&0ä0 PLOT Pi1,FP2 

5070 NEXT PZ2,Pi 

4073 COLOR= i 

G0B0 HLIN 5,7 AT Sr HLIN 15,17 AT 5: HLIN 23,27 AT 5ı HLIN 31,35 AT 5 

&090 HLIN 19,21 AT 9ı HLIN 135,15 AT 1lı HLIN 25,27 AT li 

5100 HLIN 13,27 AT 15: FOR ST = 13 TOD i4: HLIN 19,21 AT ST: NEXT ST 

&1llö HLIN 13,27 AT 25: FOR ST = 25 TOD 27ı HLIN 19,21 AT 5Tı NEXT ST 

4120 HLIN 19,21 AT 3l1ı HLIN 13,15 AT 29ı HLIN 25,27 AT 27 

&136 HKLIN 5,7 AT 35: HLIN 13,17 AT 351 HLIN 23,27 AT 351 HLIN 31,35 AT 3 
5 


32 HoOMECoMPUTER 


AUGUST/SEPTEMBER 1985 





much. _ 








6170 X = 2lıY = Jı6X = 2Iı6Y = 23 
siB6 BOTD 750 


&210 COLOR= 15 
6220 FOR Pi = 3 TO 37 STEP 2 

6230 FOR P2 = 3 TO 37 STEP 2 

6240 PLOT Pi,P2 

6250 NEXT PZ,Pi 

6260 COLOR= 1 

6270 HLIN 5,13 AT Sı HLIN 27,35 AT 5 
&280 HLIN 9,13 AT 9ı HLIN 27,31 AT 9 
5270 PLOT 13,131 PLOT 27,13 


5320 PLOT 13,27ı PLOT 27,27 

6330 HLIN 9,13 AT Siı HLIN 27,31 AT 31 
5540 HLIN 5,15 AT 351 HLIN 27,55 AT 55 
&350 WLIN 5,13 AT 5ı WLIN 27,35 AT 5 
#340 WLIN 9,13 AT Fı VLIN 27,51 AT ? 
6370 WLIN 17,23 AT 151 WLIN 17,253 AT 23 
#380 WLIN 5,13 AT 17: VLIN 27,35 AT 17 
6370 WLIN 5,13 AT 235ı WLIN 27,35 AT 23 
540060 WLIN 9,15 AT 31: VLIN 27,31 AT 31 
&410 WLIN 5,13 AT 35ı WLIN 27,35 AT 35 


5430 X = 2lıY = Jı@X = ZJı0Y = 55 
6435 QW = 420 
5440 GOTO 750 


COLOR= 15 
FOR Pi = 3 TO 37 ETEP 2 
FOR P2 = 3 TO 37 5IEP 2 
PLOT P1,P2 

NEXT P2,Pi 

COLOR= 1 

6530 CV = Tı9A = 5 





6140 VLIN 9,17 AT 5ı VLIN 9,17 AT 9: VLIN 9,11 AT 15: VLIN 9,11 AT 27: VLIN 
Se 9,17 AT 31ı VLIN 9,17 AT 35: WLIN 2,5 AT 17ı WLIN 2,5 AT 23 
_ + 85150 VLIN 19,21 AT 13: VLIN 19,21 AT 17: VLIN 19,21 AT 251 WLIN 19,21 AT 


27 
ı &1&0 WLIN 23,31 AT 5: VLIN 23,31 AT 9: WLIN 23,31 AT 31: VLIN 23,51 AT 3 
e ; Sı VLIN 297,31 AT 13ı VLIN 27,31 AT 27: VLIN 35,38 AT 17ı VLIN 55,58 AT 
25 


5205 COLöR= ilı FOR I = 2 TO 38ı HLIN 2,38 AT Iı NEAT I 


COLOR= ilı FOR I = 2 TO 381 HLIN 2,38 AT Iı NEXT I 


5200 FOR I = 50 TO 200 STEP 10: POKE 758,Iı POKE 759,101 CALL 7701 NEXT 
I: FOR I = 200 TOD 50 STEP - 10ı POKE 788,1: POKE 7869,10: CALL 770: NEXT 
I 


5202 FOR I = 50 TO 200 STEP 10: FOKE 788,1: FOKE 759,101 CALL 7701 NEXT 


5300 HLIN 5,13 AT 17ı HLIN 15,17 AT 17ı HLIN 21,23 AT i7ı HLIN 27,35 AT 


53510 HLIN 5,13 AT 2351 HLIN 15,17 AT 25ı HLIN 21,25 AT 23: HLIN 27,35 AT 


6450 FOR I = i TO 241 STEP 401 POKE 758,1ı POÜKE 769,201 CALL 7701 NEXT I 


6540 FOR CV = 7 TO 31 BTEP Bı FOR SA = 5 TO 27 STEP Bı HLIN SA,BA + 4 AT 


CVı NEXT SA,„CV 


6550 FOR 5A = 5 TOD 27 STEP Bı HLIN SA,SEA + 4 AT 351 NEXT BA 
#540 FOR CV = 7 TOD 31 STEP Bı FOR 5A = 5 TO 29 STEF Bı WLIN 5A,5SA + 4 AT 


CVı NEXT 5A,CV 
&570 WLIN 0,37 AT 371 VLIN 0,537 AT 38 
5550 X = 19ıY = Jıck = 1FıBY = 25 
6570 AB = 0 
6500 Oh = 532: GOTO 750 


&610 FOR I = i TO 241 STEP 40ı POKE 768,1: FOKE 769,25: CALL 7701 NEXT I 
5520 COLOR= il: FOR I = 2 TO 38: HLIN 2,38 AT I: NEXT I 


55350 COLOR= 15 

6640 FOR Fi = 3 TOD 37 STEP 2 
BbAs0 FOR PZ = 5 TO 37 SIEF 2 
6650 PLOT Fi1,FP2 

5570 NEXT PZ2,Pi 

5680 COLOR= 1 

5690 PLOT 5,5 
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-rele) 
&710 
5720 
&730 
5740 


HLIN 5,B AT 9 
HLIN 5,12 AT 13 
HLIN 5,16 AT 17 
HLIN 5,16 AT 21 
HLIN 5,12 AT 25 
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5850 WLIN 5,8 AT 7 5750 HLIN 5,8 AT 29 "u 
#30 WLIN 5,12 AT 13 6760 PLOT-5,33 = 
6870 WLIN 5,14 AT 17 4770 FLOT 35,5 ; 
&880 WLIN 5,16 AT 23 56780 HLIN 32,55 AT #9 IS 
&8970 WLIN 5,12 AT 27 5770 HLIN 28,35 AT 13 is 
6900 WLIN 5,8 AT 31 &800 HLIN 24,35 AT 17 e u 
5910 WLIN 30,33 AT 9? &810 HLIN 24,35 AT 21 | = 
6920 WLIN 25,33 AT 13 &820 HLIN 28,35 AT 25 5 
5930 WLIN 22,33 AT 17 &830 HLIN 32,35 AT 29 Ze 
sro VLIN 22,33 AT 25 5840 PLOT Lin ke 
5750 WLIN 25,35 AT 27 . 
&9&0 WLIN 30,33 AT 1 
5970 FOR FG = 7 TO 31 STEP Bı HLIN 21,23 AT FG: NEXT FG 
&980 FOR GH = 11 TO 27 STEP 1&: HLIN 17,19 AT GH: NEXT GH 
5970 HLIN 19,21 AT 19 | 
7000 AS = 01% = 19ıY = TIıGX = 19:BY = 23 . 
7010 QW = 8451 GOTD 750 
‚920 TEXT ı HOME ı FÜR I = i TO i0ı FOR L = 100 TO 10 STEF - 10: FÜkE 7 

&8,L: POKE 769,10: CALL 770: NEXT L,I i 
‚030  INVERSE ı WTAB 1lı HTAB 1ı PRINT " 
7040 WVTAB 235: HTAB is: PRINT " - = 
7050 FOR U = 1 TO 22: VTAB Ur HTAB iı PRINT " "3: HTAB 39: PRINT " " : 
7055 NEXT U - 
7060 NORMAL A 
7070 WTAB 4ı HTAB 4ı PRINT "SIE HABEN ES TATSAECHLICH BESCHAFFT" Be 
7080 VTAB &: HTAB 4: PRINT "ICH HAETTE NICHT GEDACHT „ DASS " = 
7070 WTAB 8: HTAB 4:3 PRINT "IRGENDEIN MENSCH DAS FERTIG BRINGT." " 
7100 WTAB 12: HTAB 4ı PRINT "SIE DUERFEN SICH VON NUN AN WON" = 
7110 WVTAB 141 HTAB 4: FRINT "ALLEN LEUTEN „ DIE SIE KENNEN „ " 
7120 WTAB 1&: HTAB 4: INVERSE ı PRINT "GROSSER MEISTER"}: NORMAL # PRINT = 

" NENNEN LASSEN !t'" | 
7125 IFW > HI THENHI =W kr 
7130 WTAB 20: HTAB 5: PRINT "WOLLEN SIE NOCH EIN SPIEL (J/NI 7"jı GET A$ | 


7/1355 


IF A$ = "N" THEN END 


HOME :ıI0 = 1 


7140 X = 19ıY = 3ı6X = 19ı6Y = ZZ: LEBEN = FIık = ÖsßW = OrFfß = i1ıTY = TV + 
iıL = Oı T = OrAS = 0ı BOTO 470 

7150 END 

10000 TEXT ı HOME 

10005 IF W > HI THEN HI = W 


10010 INVERSE ı FOR 0 = i TO 39ı VTAB 1ı HTAB O1 PRINT " "ı VWTAB 25: HTAB 
Dı FRINT " "ı NEXT O 

10015 NORMAL 

10020 WVTAB 4ı 

10050 PRINT "SIE HABEN ALL IHR LEBEN VERLOREN !ıııım 

10040 PRINT ı PRINT "IHRE PUNKTZAHL ı1"7W 


10050 
10050 


PRINT : PRINT "HOECHSTPUNKTZAHL 2";HI 
PRINT ı PRINT "ICH HOFFE „ ES HAT IHNEN SPASS GEMACHT": PRINT ı PRINT 
"UND GRATULIERE IHNEN FUER IHRE "ı PRINT ı PRINT " LEI 
STUNG" 
DATA 6&3,255,111,255,111,128,127,128,141,255,111,255,159,255,141,2 
55,141,1298,147,255,159,128,147,128,141,128,147,128,159 
10052 DATA 255,127,128,111,129,127,128,141,128,127,255,63,255,111,255,11 
1,128,127,128,141,235,111,255, 159,255, 141,255, 141 ,128,147 
10063 DATA 128,159,128,141,128,147,128,127,255,111,128,111,255 
10064 IF TY > = 1 THEN GOTO 10110 
10065 FOR RTY = 105 TO 1401 READ L,T 
10048 POKE 758,255 - Lı POKE 769,Tı CALL 770: NEXT RTY 
10070 PRINT ı PRINT "WOLLEN SIE ES NOCHEINMAL VERSUCHEN ?"j: GET Ası IF 


10081 


A#$ = "N" THEN END 

I0080 X = Z1lıY = SıGY = 21:6X = ZiıA = INT CE RHND ti) * 100) + IOb:E = INT 
( RND (1) # 50) 

10070 LEBEN = Jıl = O10W = OrF6 = 1ıTyY = TY + i 

10095 L = O9: T = 9 

10095 AS = 0:10lI = 1 

1010060 GDTO 470 : 

10110 PRINT ı PRINT "WOLLEN SIE ES NOCHEINMAL VERSUCHEN ?"5ı GET Afı IF 
A# = "N" THEN END 

10126 GOTD 10080 
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_ \ Egberts Überlebenskampf 
im Labyrinth 


| Egbert ist durch Zufall in ein riesiges 
| Labyrinth geraten, wo ihn mancherlei 
| Gefahren bedrohen. Um sein Leben zu 
erhalten, muß Egbert in sechs verschie- 
| denen Räumen so lange herumliegende 
| Gegenstände einsammeln, bis sie auf der 
| „Scale erscheinen, Ist dies geschehen, 
| so erhält er die Möglichkeit, an einen 

Schlüssel zu gelangen. Mit dessen Hilfe 








m ee =; BEN BEI MANCHEN MAUERN. 

8 — u ur 80 PRINT" BEI f EREN 1 PUNK 
rs 70 PRINT" BEI 10 JNKT - 
100 PRINT" VON DEM SIE Eren 


errzoog ee ae - 
w a 
f ni = = 


kann Eebert „Irrläufer“ die Verbin- 
dungstüren zwischen den einzelnen Räu- 
men öffnen. Doch aufgepaßt: Wenn Eg- 
bert die Mauern berührt, droht ihm ein 
Punkteabzug oder sogar der Verlust „ei- 
nes seiner Leben“, 

Dieses Spiel weist vier unterschiedliche 
Levels auf: 

In Level I erscheint nach dem Durch- 












za Unser Egbert ist schlau. 


Der kommt durch!“ 


queren von vier Räumen ein Monster. 
In Level 2 wird Egbert mit dem feind- 
lich gesinnten Monster konfrontiert. 

In Level 3 steht Egbert nur eine begrenz- 
te Schritianzahl für die Durchquerung 
des Raumes zur Verfügung. 

In Level 4 muß Egbert gleichzeitig auf 
seine Schrittzahl und das Monster ach- 
{En, 












0 HOLEN NUESSEN ge 





| { 

| nes - 110 PRINT" GEHEN SIE ZUR an R BINDEN NAECHSTEN RAUM" 
El, 120 GETAS:IFA F=""THENI20 =: 

| | ® ‚430. PRINTIRBEBROAD" 000000 

| | SH 0 PRINT 

| | READY. er, 


AUGUST/SEPTEMBER 1985 Nomscomputer 33 


m | —— m Em HZ u m m: En — = u = „ur 


@ | 4 GOSUB2000 | TEIL 2 


5 De="VC-20":HC=10:H=1 
5 FOKES4879,14 


® ; 9 60703000 


I=1:A=7932:B=38552:L=5: P=0:R1=34876: POKER1+2, 15: PU=01%X=0: J=1 
POKES4849 ,255 
ONIGOSUB100,300,400, 200,500 , 400 


u oe C=INTRND(1) #418): POKE7702+C, 7:POKES8422+C,H1:NEXT 
EEDITSTSTSTCETETEETTETRTETEZPU "PN LE"L 






| hl j 5. "Geb" öi Br } i 





‚ 54 IFSES=0THENL=L-1:9=13:FORT=200T0250STEP2: POKER1,T:NEXT:POKER1,0:LL=100 | | | 
is! %0 POKEA+X „J:POKEB+X,H:POKEA+X+Y,O ,® BB 
z 62 POKES7154,127:J0= (PEEK (37152) AND128) + (PEEK (37151) ANDZ2B) | | 
53 IFJD=e130THENX=X-1:Y=+1:J=1:POKERIi+1 „200: POKER1+1 ,O:LL=LL-1 | 
54 IFJO=28THENK=X+1:Y=-1:J=2: POKERI1+1 „200: POKER1+1 „O=LL=LL-1 | 
65 IFJO=152THENX=X-22:V=+22:1J=3: POKERI1+1 „2005 POKERI+1,O0:LL=LL-1 | tz 
&6 IFJO=148THENX=X+22: Y=-22: J=3: POKER1+1 „200: POKER1+1,0:LL=LL-1 a5 
' 67 O=PEEK(A+X) : IFP<OTHENP=0:PU=0 u 
| ' 67 IFO=F0ORO=12THENP=P-1:PU=PU-1: X=X+Y: FORT=240T0190STEP-5: POKER1+1,T:NEXT=POKER1 
| & +1,0:J=13 
(a 70 IFO=&THENL=L-1:FORT=200T0120STEP-1:POKER1-2,T:NEXT:FOKERI-2,0:J=13 
| 71 IFO=40R0=11THENX=X+Y:L=L-1:FORT=1T010: POKER1+1, 130: NEXT: POKER1+1,0:J=13 

72 IFO=STHENFORT=220T02505TEP2: POKER1,T:NEXT:POKER1,0:P=P+1:PU=PU+1 a | 
| 73 IFO=8THENU1=1:FORT=23010253STEP2:POKER1-1 ,T:NEXT:POKER1-1,0 | 
er 74 IFUlL=OTHENGOTO7& 
[>> 75 IFO=7THENU1=0: X=0: FORT=128T02555TEP.5:POKER1 ,T:NEXT:POKER1 „0: 60T040 
| 76 IFO=7THENFORT=255T0248STEP-1:POKERI+1 ,T:NEXT:POKERI+1 ,0:X=X+Y | a 
|. ® 77 IFO=10THENX=X+Y | | 
| ‘ 88 IFFU=10THENI=1+1:G60T01100 
| 1.89 IFL=OTHEN1000 a Bi 
ı® ı #90 IFRT=OTHEN?? me 
| ‚, #1 POKE7B2Z2+HXX+HYY ,O: POKESBS42+XX „4: POKE7922+XX 11: 60SUB4000 ; 
| @ | 32 TASINTERNDEN SI +LEONTXEOTOIS,94,95,98 :® 
171.93 KX=XX+22: YY=-22: 601097 1 EB 
' 94 XX=XX-22:YY=+22:607097 - 
ı 95 XX=XX+41:1YVY=-1:607097 = 
96 XX=XX-1:YY=+1:607097 
| u ' 97 UV=PEEK (7822+X%) : IFUY=40RUY=9ORUY=SORUY=1ZORUY=40RUY=7ORUY=BTHENKX=XX+YY 
ı = ' 98 IFUY=10RUY=S20RUY=STHENL=L-1: XX=KX+YY: FORT=120T0220STEP3: POKER1+1, T:NEXT:POKER 

ı '1#+1,0:4J=13 


; 100 PRINT"ÜSDDDDDDDDDDDDDDDDDDDDDD"; :H=1:Hi1=5:POKES5877,15:LL=120 _ MM 
' 101 PRINT"D@@@aEEDEEEEEDaRREReen"; Bi 
ı 102 FRINT"Desepereeeereapeapeeen"; 
, 103 PRINT"Deeee@eeDasnaaneannneaen"; 
u ! 104 PRINT"DDDDEDDDeEDEEDREREEEeD"; 
= | 105 PRINT"DAG@@EEDEEDERNEENDDEen"; 
| 105 PRINT"Deeeeeeneeneeeaesasean"; 
'® | 107 FRINT"D@eDDeeDeepaeneeaeeeen"; 
| + 108 PRINT"D@@@@@eDeeDEEDDDDENDDD"; 
| 107 PRINT"De@GSEEDEEDERDEBREREED"; 
| 110 PRINT"DDDDDDDDDDDGEDR@REEREN"; 
| 111 PRINT" DaG@eEBeEHEERBaERgeeen"; 
| 112 PRINT"DDDDDDDDE@ENDDDDDDDEEEND"; 
| 113 PRINT"DeaeesseDasbessasaasean"; 
' 114 PRINT"DEDDDDED@@EDENDDDDDDDDD"; 
ı ® ‚, 115 PRINT"D@aD@eDaseanabaseaaseen"; 
ı 116 PRINT"D@@@e@eDeD@EDenDDDEDDDDD"; un is 
117 PRINT"DEDEEDEDEeEDERSERaRGaaD"; o, alles genau in d a 
ı ” ' 118 PRINT"DEDDDDEDEEDENDDDDDDDDD"; a an Al 
|, 119 PRINT"De@@eeaDGaneDaseaaesen"; a: ze 
er i21 PRINT" DDDDDDDDDDDDDDDDDDDDDD" 
125 FORT=1T03:C=INT (RND (1) #418) : POKE7702+C ‚5: POKESG422+C ,2:NEXT 
127 FORT=1TD12:C=INT {RND(1)#418) :POKE7702+C,5:POKESB422+0 ,7:NEXT Pr 
® 130 RETURN ne 
| . 200 PRINT"E":PU=0:H=6:Hi=0:LL=120 
2 201 PRINT"BIIIIIIIIIIIIIIIIIIIIII": 
©) 202 FORT=1T019:PRINT" I@@4g@eaeaaasaagaggaal";:NEXT 
| 203 PRINT"IIIIIIIIIIIIIIIIIIIIII":POKESS877,220 
& 204 FORT=1T0110:C=INT (RND(1)#418) :POKE7702+C 7: POKESB422+C ,6:NEXT 
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; FORT=1T015:C=1INT {RND (13 #418) :POKEFFOZ+C „S:POKESB4224C „4: NEXT 


, FRINT" TaBeea@aaBeaetee@eeael"; 


; FRINT"IeEBBeBasepehezereeel"; 


— — ——— = —— = 


RETURN 
FRINT"L":FU=0:H=5: Hi=4: LL=120 


, PRINT"SDDDDDDDDDDDEDDDDDDDDDD"; 


FORT=1T019:PRINT"De@@aeaeaRaeanegenadan"; : NEXT 
PRINT"DDDDDDDDDDDDDDDDDDDDDD": POKESE879,30 
FORT=1T0120:C=INT (RND(1)*418) :POKE7702+C „4: POKES8422+C ,O: NEXT 
FORT=1T015:C=1NT (RND(1)*418) : POKE7702+C , 10: POKESS422+C ,5: NEXT 


- FORT=1T05: C=INT (RND (1) #418) :POKE77OZ+C „Ss: POKESB422#+C „1:NEXT 


FORT=1T015: C=INT {AND (1)#418) : FOKE7702+C „5: POKESSA224HC „2: NEAT 


' RETURN 


POKE34877,F:PRINT"KAIIIITITIIIIIIIIIIIIIIIT"; :Hi=1:H=el: Pl=6:LL=120 
PRINT"Teeeseeeseesgeeeaeaae!"; 
PRINT"IIIIIIII@IIII@III@IIII"; 


Opas Fernseh- 

. ‚sessel holen! 
Gleich geht's los: 
‚Helfen Sie 
Egbert durch's 
LABYRINTH! 


PRINT"IIIIII@@IIIIIIIIIIeIII"; 
PRINT" Ieeeessseteseepeepepenl”; 
PRINT"IIII@IIIIIIII@IIIIIIII"; 
FRINT" IBEeee2akaeeeseegaseal"; 
PRINT"I@@81IIIlleilleiillliIel"; 
PRINT" Ieeetesseeseetbeeedeel"; 
FRINT"IIIII@III@IIIIIIIIIIeI"; 
FRINT"IT@eegeadeeeeeeateeaaal"; 
FRINT"IIIIIIIIIIIII@IIII@III"; 
PRINT" IGeBEBsseBeseetaeeeel"; 
FRINT"IIII@IIII@III@III@IIII"; 


FRINT"IIIIIIIIe@IIIIIIIEIIII"; 
PRINT" T@@ee@eeseeateedbeebbel"; 
PRINT"IIIIIIII@@EII@@IIIIIIII"; 
PRINT" IleBe@B#8sRBBeacbRaseebdel"; 
PRINT"TEIIIIIIIIIIIIIIIIIIII" 
FORT=1T015:C=INT {RAND (1)#418) : POKE77O2+C,, 10: POKE3B422+C,5:NEXT 
FORT=1T05:C=1INT {RND(1)#418) :POKE77O2+C ‚4: POKE3B84224+C ,4:NEXAT 
FORT=1T020:C=INT {RND{1}*=418) :POKE77O2+C ,5:FOKE38422+C, 7:NEXT 
RETURN 

PRINT"W":PU=0:H=0:Hi=5:LL=120 





 PRINT'TEDDDDDDEDDEDDDLDDDDDDDDD" ; 


FORT=1T019:FRINT"DeBGeeREBBEereeeaeeeeh"; NEXT 
PRINT"DDDEDDBDEDDDEDDBGDDEDDD" : FORE35B797 „2& 
FORT=1TD30:C=1NT {RND (1) #418) :POKE77OR+C „4: FPOKRESBS224C „&: NEXT 
FORT=1T050: E=1INT {RND(1)#418) :FOKE77O2Z+C, 9: POKRE3S8422+4C ,5:NEXT 


507 FORT=1T05:C=INT (RND (1)*418) : POKE7702+C ‚5: POKES84272+C ,2:NEXT 
508 FORT=1T015:C=INT {RND (1)#=418) : FOKE7702+C „5: FOKES8422+C0,7:NEXT 
509 RT=1 
510 RETURN ; 
&00 PRINT"BLLLLLLLLLLLLLLLLLLLLLLL"4 + POKE35879 „156: H=0: H1=4: PU=0:LL=120: JK=1 
&01 FORT=1TO1F:PRINT"LEBRGRESEEFAAERELEAREL";:NEXT d“ 
502 PRINT"LLLLLLLLLLLLLLLLELLLLL" | 
503 FORT=1T050: C=INT (RND(1)#408) +1: POKE7702+C ,12:POKESB8422+C0 ,0:NEXT = 
&04 FORT=1T015:C=INT iRND (1) #408) :POKE7702+C ‚5: POKES8422+C „2:NEXT = 
&05 FORT=1T015:C=INT {RND (1)*408) : POKE7702+C , 10: POKE39422+C ,5: NEXT 
506 FORT=1T05:C=INT<RND(1)#408) : POKE7702+C „5: POKESB422+C ,1: NEXT a 
520 PU=0: I=0:P=P+100:RETURN H 
1000 FORD=1T010:FORT=128T02555STEPS:POKER1-1,T:NEXT: POKER1-1 ,0:NEXT:FOKES6859 , 240 a 
1001 POKE34879,14: IFP>HCTHENFRINT"LERERIISDEINEN NAMEN BITTE": INPUT"R";D$#:HC=P 
1002 PRINT"LRRISHIGHSCORE"HC ; 
1003 PRINT"WVON "D$ 
1004 FRINT'ER dj TASTE =" Fr 
1005 GETAF: IFA$=""THENLOOS 15 
10085 . JK=0: RT=0:GOTO35000 
1100 FORD=1T04: FORT=250T0200STEP-.S:POKER1,T:NEXT:POKER1,0:NEXT:PU=0 
1110 FORT=1T02:C=INT(RND(1)#418) :POKE77024C ,8:POKES8422+C ,H: NEXT: GOTOFO 
2000 POKES&849,255 
2010 DATA0,0,0,0,0,0,0,0:REM NIX 
2020 DATAZ4,56,16,56,56,56, 16,48: REM N.LINKS | 
2030 DATA48,55,15,56,56,56,1&,24:REM M.RECHTS 2 
2040 DATASA,56,16,124,186,1865,40,108:REM M. GERADE LasH 
2050 DATA255,145,255,165, 165,255, 137,255: REM MAUER } 
2050 DATAO,0,665,50,60,66,0,0:REM GRUG A 
2070 DATAO,0,0,50,50,0,0,0:REM MINE Eh 
2080 DATA2S3,129,131,133,129,129,127,,255: REM TUER =. 
2090 DATA96,240,224,16,10,5,2,0:REM SCHLUESSEL | 
LATE ernten = ö ; SEE EE 
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| PRINT'BEG LEVEL 2 = 
| PRINT" LEVEL 3 
FRINT'"EG LEVEL 4 


ı N 


' YR=l: INPUT"I3"; YR 
IFYR=1THENI1O 


IFYR>4THEN3000 
REM" 


> RETURN 


m u nen — en — 


' DATA255,129,255,127,129,255,129 „255: REM 
' DATA&O,126,128,50,24,24,24, 24: REM 
DATAS6,16,56,56, 16,124, 170,170: REM 
) DATAS2,124,255,117,239,255,122,40: REM 
DATA17,4,0,9,0,185,255,57:REM 
0 FORI=OTD111:READV: POKE7168+0#8+1,V:NEXT 
 POKES7154, 255: PDKET6869 ‚240: POKES6879, 14: PRINT"LIda 
; FRINT"ERH LEVEL 1 = MOhSER ERSTE 
MONSTER" 
SCHRITTE" 
MONSTER 
PRINT"EAZLWELCHER LEVEL" 


IFYR=ZTHENRT=1:6GOTD10 
IFYR=3THENJK=1:G0OT010 
IFYR=4THENJE=1:RT=1:G0OT010 


BAUM 


FELSEN 


UND SCHRITTE" 


IF7BZ22+AXS76B0OTHENKK SKK HT 
IF7TB22+XX >BLBSTHENKK=SKKHYY 


EN 


Moon-Lander ist für den TI-99/4A mit 
Extended Basic und Joysticks geschrie- 
ben. Aber es ist auch noch genügend 
Speicherplatz zur Verfügung, so daß das 
Spiel auch auf eine Tastatur-Version 
umgeändert werden kann. 

Nach dem Eintippen und nach Eingabe 
von „RUN“ wird man nach der Spiel- 
stärke gefragt (leicht, mittel, schwer). 
Dann wird der Bildschirm zunächst 
dunkel. Nach einiger Zeit erscheint der 
Bildschirmaufbau des Spieles mit der 
Frage nach der Spielanleitung, die mit 
einer 3stimmigen Melodie untermalt ıst. 
Je nach Antwort erscheint entweder eine 
kurze Spielanleitung oder das Spiel be- 
einnt sofort. 

Zum Spiel: 

Oben links in der Ecke erscheint Ihr 
Lander, Ihre Aufgabe ist es nun, dıesen 
Länder sicher aufeinen der beiden Platt- 
formen zu landen. Doch das ist gar nicht 
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so einfach. Infolge der Anziehungskraft 
sinkt Ihr Lander unaufhörlich. Sie sind 
somit BeZwungen, gegenzusteuern. Dies 
geschieht folgendermaßen: 

Drücken Sie den Joystickhebel nach un- 
ten, so benutzen Sie dıe „Bremsdüsen“, 
und Ihr Lander wird abgebremst, Diese 
Bremsdüsen kann man aber nicht sehen, 
sondern nur hören. Je länger Sie brem- 
sen, desto kleiner wird die Geschwindig- 
keit Ihres Landers. Das gleiche gilt für 
die anderen Richtungen: 

Hebel nach rechts: Lander liegt nach 
links (die Düsen, die rechts am Lander 
sind, lassen den Lander nach links flie- 
gen). 

Hebel nach links: Lander fliegt nach 
rechts. 

Hebel nach oben: Lander fliegt nach un- 
ien (er wird beschleunigt). 

Zu einer erlölgreichen Landung gehört 
aber noch mehr. Am linken Bildschirm- 


FELS 


MONSTER 
FELSEN 


AB RAUM 5" 


COLEETOR 











Auf den Spuren 
von „APOLLO®: 





Eine weiche 
Landung ist 
sehr wichtig! 


rand sehen Sie einen hellblauen senk- 
rechten Streifen, in dessem Zentrum be- 
findet sich ein grüner Balken. Dies ist 
die Anzeige Ihrer Geschwindigkeit. Der 
schwarze waagerechte Strich zeigt Ihre 
momentane Geschwindigkeit an. Je hö- 
her dieser Strich ıst, desto kleiner ist 
Ihre Geschwindigkeit. Um eine erfolg- 
reiche Landung zu erreichen, dürfen Sie 
die Felsen nicht berühren (sonst explo- 
dieren Sie}, zusätzlich muß eine be- 
stimmte Geschwindigkeit eingehalten 
werden. Der schwarze Strich muß sich 
ım grünen Bereich oder darüber befin- 
den. Je höher dieser Strich ist, desto 
mehr Punkte bekommen Sie bei einer 
egeelückten Landung. Ist der Strich unter 
dem grünen Bereich, so sind Sie zu 
schnell gelandet und explodieren eben- 
falls. Auch wenn Sie den Bildschirm 
nach rechts, links oder oben verlassen, 
explodieren Sie. 

Zur Punkitverteilung: 

Die Anzahl der zu vergebenden Punkte 
ist abhängig von der Stellung des 
schwarzen Striches. Diese Punkte wer- 
den dann noch mit dem Multiplikator ? 
oder 3 multipliziert (mit 2, wenn Sie auf 
der linken Plattform landen, mit 3, 
wenn Sie aufder rechten Plattform lan- 
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den, weil dort eine gute Landung 
schwieriger zu realisieren ist). Ganz un- 
ten am Rand sehen Sie Ihren Fuel-Vor- 
rat. Ist dieser aufgebraucht, so ist das 
Spiel vorbei, Wenn Sie eine gute Punkt- 
zahl erzielt haben, dann können Sie Ih- 
ren Namen in eine Tabelle eintragen. 
Das geschieht folgendermaßen: 

Mit dem Joystick bewegen Sie cinen 
schwarzen „Rahmen“, Wenn Sie nun 
auf den Feuerknopf drücken, dann ha- 
ben Sie denjenigen Buchstaben eingege- 
ben, der im schwarzen Rahmen ist. 


mit „R.“ für rub (am Ende der unteren 
Buchstabenreihe) gelöscht werden. Das 
Eintragen ist beendet, wenn so viele 
Buchstaben eingegeben wurden, wie 
möglich sind, oder wenn Sıe das Zeichen 
„E.* für End eingegeben haben (auch am 
Ende der unteren Buchstabenreihe). Die 


jeweils 5 besten Ergebnisse sind in dieser 


Tabelle gespeichert. 

Fuelvorrat: 

Sie verlieren Fuel, wenn Sie die Brems- 
düsen betätigen oder wenn Sie explodie- 
ren. Bei einer Explosion ist der Fuel- 


abhängig. Bei einer schwierigeren Spiel- | 
stärke verlieren Sie dann mehr Fuel als 
bei einer leichteren. Sie bekommen Fuel 
dazu, wenn Sie glücklich gelandet sind. 
Je mehr Punkte Sie für eine Landung 
bekommen, desto mehr Fuel erhalten 
Sie auch dafür. Je mehr Punkte Sie nun 
bekommen (je länger Sie also spielen), 
desto schwieriger wird das Spiel, denn 
mit steigender Punktzahl verschlechtert 
sich die Bremskraft der Düsen und man 
muß häufiger und länger bremsen. 
Nun viel Spaß und Erfolg bei Moon- 
Lander. 


Falsch eingegebene Buchstaben Können 


= ! 
ih 
en | 


J 


ei 


Verlust von der jeweiligen Spielstärke 


{6 Bekiickaikaklkikikiokiskikiiikduiikik 
8 |% MOON-LANDER F 
Ik <CCI1IR4 % 
da Ik BY HEYO SPEKKER x 
5A !k BUCHENSTR.16 x 
ra Ik 2913 AUGUSTFEHN % 
7a Berkkkekaikkikikckilsiuickick 
BA DATA 397,349, 117,387 ,349, 117,587,349, 117, 554,330, 117, 587,378. 147,587,378, 147, 
3a DATA 466,392, 156, 466,392, 156, 466,392, 156, 392,311: 156,349, 294: 117,349, 294, 117, 
{AA DATA 466,392, 156,466, 392, 156, 466 , 392. 156, 392,311, 156,349, 294, 117,349, 294, 117 
11a DATA 523,338, 131,392, 338, 131.449, 262, 131.466, 294, 131,523, 311,175, 523,311, 175 
179 DATA 387,349, 117,587 ,349, 117,587,349, 117, 534;330, 117,587 .:379, 147, 587,370, 147 
{4A DATA 466,392, 156, 466,392. 156, 466,392, 156, 523, 378, 156, 587,370, 147, 587,378, 147 
159 DATA 466.397, 156.466, 392, 156,466 392, 156, 392,311,136, 349, 294 , 233, 370, 262. 220 
{fd DATA 587,338, 131,597 338: 131,523, 311, 175,523, 311,175, 466,294, 117,466, 15088, 1 


17a DATA 587,379, 15900, 15008, 19080. 147 ,597,378, 147 ,587,378, 147,466. 294,196, 440,2 


10 597,370,147 523,370, 147 
| o | 349,294, 117,449,349, 117 
a ' 349,294, 117,587,349, 117 

1 ,698.449,110,622,392, 118 

® ı ‚5A7,379, 147,523, 370,147 

u ‘| .387.378,147,523,370, 147 
2.292.247, 196,992, 349, 196 
Ya ' Sann,=23, 15080, 15088, 554, 338, 19080 
ı@® ı 62,196,392,233, 196, 392,233, 196 
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i8A DATA 587,278, 15088, 597 ‚378, 15088, 15880, 15900, 147,523, 15008, 15060, 466, 294, 196 
‚44n 262, 196.392, 233, 196,392, 233, 196 ER 
{99 DATA 523, 339, 15088, 15088, 15009, 191,523,330, 131,523, 339, 131,448, 262, 175,448, 2 
6?, 175,249, 228, 175,349, 228, 175 

zna DATA 523,338, 131.923, 15098, 159B@,587, 15988, 15080, 523,338, 131,698, 440, 175, 159 
ag, 15maa, 15909, 698,448, 175, 622,392,175 

ala AR=Q :: CALL BILDCPR) 

329 SP=32 :ı CALL SCREEM2):: CALL CLEAR ı: CALL MAGNIFYC4) 

#38 DEF Fat DE23-De 1 )3%4 

248 FALL CHARCBL,"SC42IIALALII42SC" ) 

59 CALL CHARC3B,"BRB7BLOFLFSF7ITFIFTFIFTFIFOBLGZOBBEOBBFOFSFCIEFEFEFEFEFEFC1088 
Bd" ) 

268 CALL CHAR(49, "FFEBBOBBHADGMBERBEBBEBENBAARBMDOFFORBABRAKDBRDRRAG" > 

37 CALL CHAR 32. "BaBRaRBEnBGBRDBOrFFFFFFFFFFFFFFFEBOBAGBBGGGGBABBFFFFFFFFFFFFFF 
FF") 

aaM CALL CHAR 92, "BASaSCLFarF?C3BBBODBELF1930200049EBEOFBFFTEBSDSBLDESIBBFCFEBE 
aß" > 

390 CALL CHARCS4. "BB241B7E19240000" ) | 
4am DATA MAGBBgSCcrFFFFFFFEFFFFFFFFFFFFFFFOBBOGEBBSBSBLOCOFLFEFEFFFFFFFFFF 
41A DATA FFFFFFFFFFFFFFFFFFFFFFFFFEFEFCFCB@BOCOCACHCHBASGSBERBEHBR RBB 
428 DATA FÜFBFGERCBCOCHCACHCBEBEBFOFEFLFFORBGRDENDOBAAARDEROGELUGGRGBRAFF 
439 DATA MEOBESBAGIERERBAGGARABRRRRRBGAFFAFIFFFTFAFSFSFSFSF/FTFAFSFIFTERF 
448 DATA 1FIFAFOFIFIFOFGF@FBFBFLFIFLFSFSFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
450 DATA 01918303030787aFaFAFa7B7BTarar iFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFF 
46a DATA DADBBRBBBBNAARBAERDABHRRRRDERAAN 1 01A3039797UFIFLFLFSFSFTFTFFFFF 
478 DATA BOMBEBERAHHARGAAELASATAr LFSFTFFFO@RGR?LFLFSFTFFFFFFFFFFFFFFFFFFF 
48M DATA BBBOFFFFFFFFFFFFFFFFFFFFFFFFFFFFOGCGEGFGFGFOFOFSFSFSFSFCFOFOFEFE 
4=9 DATA FEFLFSFBFOFBEBLBLABBAGBBAABABEFFERDADAAGABERELUGDEHEBTELHARORGFF 
sa DATA BanaBaa1a1a303n303030307@7ararFFFAF/FFFFFFFFFEFFEFFFFFFFFFFFFFFFF 
518 DATA B193078FaFaFLFaFaFSFararaFaF3F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 


ee 


Eu 
errrsue 
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Asa IF 21=91 THEN Zi=95 1: AlsAl-l :: IF Al=17 THEN Al=i8 :: GOTO 1838 


“>24 DATA AnanananaBaaaaaaeRaarariFaFTFFFa3030TaF LFAFTFFFFFFFFFFFFFEFFFFF 

3A DATA 19:2, 17,4,21,4.21,8, 17,18, 13, 19,9, 10,5, 14.5, 18,9, 20,9. 24,5, 26, 1,28 

54a DATA 17,2,21,12,9, 14:9, 16,9, 19,13, 28, 19,22, 19,24, 13, 26,9, 28,5, 30 

ee CHARCEB,"" 3:1 CALL COLORCB,2,291ı FOR Is3 TO 7 11 CALL COLOREL,IE,Z2I: 

S60 RESTORE dad :: FOR I=96 TO 148 STEP 4 ı: RERD A :4 CALL CHARCIHABd:: NEXT I 
:: READ Ab 1: CALL CHARC44AB) 

s7A A=96 ı: FOR I=1 TO 13 :: RERD B,C 1: CALL SPRITECHI,A,2,BKB-7,CHB-7)ı: Aeflrd 
'ı IF Asid4 THEN As=dd 

San NEXT I 

539 FÜR Isi TO {1 :: READ BC :: CALL VCHARCB.C,BB,2S-BINı CALL VEHARCB,CH,B8,2 

5-A)ı: NEXT I :: CALL VCHARC1.32,88,24) 

sam FOR I=1 TO 13 :ı CALL COLORCHL,7I:: NEXT I 1: CALL COLORCH,7,7) 

Sta CALL COLORC9,8,8,11,3,3, 12, 11,11) 

62A CALL VCHART 11,32,97,1231: CALL VCHARC13,32,119,2) 

638 DISPLAY ATC24, 18): "FUEL" 11 CALL HOHARC24,16,127,17):: DISPLAY ATC22,14)SIZE 

99: "TOPMTOP :ıı DISPLAY ATC2A, 14SIZEC9): "PUNKTE" PT 

649 CALL SPRITEC#16,32,7, 161,233) 

659 IF Af=i THEN 60 | 

66A DISPLAY ATC1,3): "MOON LANDER" :: DISPLAY ATC3,3):"01984 H SPEKKER" ıı DISPLA 

Y ATC15,129812EC 18 9: "SPIELREGELNTLJN" 

Era Garn 1208 

sAR CALL HCHARC1,3,32,299: 1 CALL HCHARC3,3,32,28)11 CALL HCHARCIS.12,98,20):ı Fü 

R I={ TO SAG :ı NEXT I 

638 DEIDECLI,ELZI.AASA 1: CALL SPRITECHL4,36,5, 1,9, 415,40, 2,99,249) 

zaa FALL MOTIONCHIS,A,B9:: CALL JOYSTEL,KYI:: IF %=Q AND Y=0 THEN 710 ELSE 720 

18 CALL SOUNDE-2098,-7,99:1 DEZI=DL1I4B,S 1: GOTO 74u 

>24 CALL SOUNDE-28B9,-6,99:: DE2 IDEE IKYZINTCPT/SO@+B): 1 ECZI=El LI=K/INTEPT/SOG+ 

831: CALL MOTIONCHIB,B,-1)1: ZARZA+ :ı IF ZA/4=INTCZA/A)THEN 725 ELSE 730 

?>= FALL HOHARC24,5P,88):ı SPaSp-i 

738 CALL POSITIONC#16,B,C):: IF Ck=121 OR SP<=16 THEN 1330 

744 CALL MOTIONCHLADCZLECZI.MSSF,Adı: CALL COINGCALLICIH: IF C THEN CALL CRAS 

HESP,PF):: GOTO 698 

754 DC1I=DE2I1: ERLISECZI:: CALL POSITIONCHISSGEHF: IF G<72 OR G>176 THEN CALL 

MOTTONCHLS,8,8) 

760 CALL POSITIONCH14,0,W):: IF MI2S4 THEN CALL CRASHESPSPP):: GOTO 698 ELSE IF 

9154 AND A159 AND HC=6S AND W>=33 THEN ZUs2 1: GOTO 898 

779 FALL. COINCCALL,CI:: IF C THEN CALL CRASHESP,PP)I:: GOTO 698 ELSE IF 0)=39 AND 
0<=?3 AND M<179 AND W>LS4 THEN ZU=3 :: GOTO 808 

zaa IF M>193 AND Mc23a THEN GOSUB 1198 ıı GOTO 698 

?34 CALL COINCCALL,CIH: IF C THEN CALL CRASHESP,PP):: GOTO 698 ELSE 798 

B8A CALL MOTIONC#14,9,9,#15,9,0,#16,9,9):1: CALL POSITION M1S,GH3ıı IF Gkeii2 TH 

EN FALL MELODYICZU,SP,PTIELSE CALL MELODY2 1: CALL CRASHESP,PP) 

Alf GOTO 698 

32m Zu" 11 CALL DELSPRITECALLII: CALL CLEAR 1: CALL SCREEN IL) 

838 CALL CHARSET © CALL CHARCSI, "OBrOSa7asa4B4" >: CALL CHARK 32, "DOTRANTE4B4E? 


Ba FOR I=2 T0 8 :: CALL COLORCI»2,113:: NEXT I: CALL CHART 93, "FF818181818181F 
asB IF PT>PCSITHEN IF PT3PC4ITHEN 868 ELSE PCS3=PT ıı Bl=e BucSy="" ELSE 1958 
Bra IF PTAPCSITHEN IF PTIPCZITHEN 978 ELSE BB ELSE 898 

A’@ IF PT>FEIITHEN 909 ELSE 910 

3a FOR I=5 TO 4 STEP -I 1: PEIdePeI=-1dr: BECTI=BREI-1 I: NEXT I 1: P(IePT :ı B 
Sadm"" 11 Bl=3 :ı GOTO 928 

3A PeSdepldr: BE TIERE 4: PC4I=PT ıı Becgje"" 1: Bied ıı GOTO 928 

sad FOR I=3 TO 2 STER I :: PCIdePCI-13:: BECTI=BBE I-1 3: HEXT I 1: Pli)ePT :ı B 
Kl" 1: Biel :: GOTO 928 

312 FOR I=5 T0 3 STEP -1 1 PCT=Pt I-1 3: BECLS=BREI-1 3": NEXT I ıı PA2JePT ıı 8 
%2je"" ıı Bie? 

378 DISPLAY ATE1,9>: "NAME REGISTRATION" 

338 DISPLAY AKT EM "ABCEDEFGH TI .J" 1ı DISPLAY ATCFEI"KLMNO FOARS 
T" 2: DISPLAY ATCI,KSI UV UT ZZ. E4 

344 FALL MAGHIFYEZI:: CALL SPRITEC#1,93, 2:28,32) 

239 #=15 + FOR I=i T0 5 :ı DISPLAY ATCK,63:11 1 DISPLAY ATCH,B9: PCI: DISPLAY 
ATC#H,.1FI:BECTJrı Kuk+2 1: NEXT I 

3EA DISPLAY ATCil.63: "TOUR NAMEı" 1: CALL HCHARC11:18,95; 12) 

37a Kl=e28 :ı Yl=52 :ı Ale 

saß CALL JOYSTE1,%.Y9ı: IF X=A AND Y=A THEN 1938 

999 IF %=-4 THEN Yl=Yi-16 ELSE IF X=4 THEN Yıl=Yi+ls 

(gan IF Yi=3& THEN Yi=196 ıı Kimki=-16 :: IF Ki=i2 THEN Ki=6d ıı GOTO 1978 

aid IF Yie2i2 THEN Yil=32 ıı Aleki+lb ‘ı IF #1=7&6 THEN Xi1=28 

in28 CALL LOCATEC#1,K1, Tl) 

{A389 CALL KEYCL,T,SI:: IF S=d THEN 988 

1948 FALL. GEHARCCHI+IZIFBSCYIHLZ IB, ZU 3: IF Z1=92 THEN 1888 
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WAS GIBT'S 
DANOCH f 
ZU ÜBER- _ 


haben wir zwar nicht anzubieten, aber 


bei Ihnen mit einem echten Super-Abo! 


„Money Makes The World Go 
Round“ (Geld regiert die Welt), 
so lautete einst ein bekannter 
Schlager von Liza Minelli. Nun, 
alles scheint sich um den schnö- 
den Mammon zu drehen, Sparen 
will und muß jeder, das ist klar! 
Wir vom Team des HOME- 


COMPUTER möchten Ihnen da- 


bei helfen. Wir sind der Meinung, 
mit einem Jahres-Abo geht bei 
Ihnen „die Sonne* ‘auf und das 
nicht nur im Geldbeutel! 

Falls Sie bisher mit unseren Ma- 
gazinen HÖMECOMPUTER, 
COMPUTRONIC und CPU zu- 
frieden waren, so entscheiden Sie 
sich doch einfach für ein Jahres- 
Abonnement, welches Ihnen eine 
schöne Stange Geld erspart! 

Bei unserem KÖMBI-ABO spa- 
ren Sie sage und schreibe 41 
Mark! Und wie kommt man an 
das erstklassige Angebot? Ganz 
einfach die Bestellkarte ausfüllen 
und abschicken. Damit haben Sie 
sich das günstige Angebot gesi- 
chert! 

So wird auch automatisch Ihr 
HOMECOMPUTER Magazin 
preiswerter: 

Wählen Sie das Kombiınatıons- 
angebot aus HÖMECOMPU- 


\ TER, COMPUTRONIC und. 
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überlegt nicht sehr lange. Als 
a weiß er, a er seine 





a Für ganze 100 
Mark hat McSpar ein Jahr 
lang Informationen, Spiele 
und Anwenderprogramme. 
„Jimmy, greif zu!“ 





CPU, dann sind Sie optimal in- 
formiert und werden mit. einer 
„wahren Flut“ von tollsten Soft- 
ware-Programmen „überhäuft“! 
im Klartext bedeutet dies: Sie 
zahlen für sechs Hefte von HO- 
MECOMPUTER plus sechs 
Hefte ron COMPUTRONIC 
plus zwölf Hefte von CPU im 
Jahres-Abo statt der „üblichen“ 
141 Mark die runde Summe von 
nur 100 Mark! (Dieses Angebot 
gilt nur für die Leser aus der Bun- 
desrepublik Deutschland). | 
Bei Lieferung in das europäische 


Ausland beträgt das Sonderange- je eu. 2 


bot 150 Mark, nach Übersee 200 "°W 
Mark. 


In dem „Blauen“ ist enthalten: 

@® Sie erhalten HOMECOMPU- 
TER, COMPUTRONIGC und 
CPU ab der aktuellsten näch- 
sten Ausgabe. 

® Die Lieferung erfolgt frei 
Haus inklusive Mehrwert- 
steuer. 

® Die Zustelleebühren sind im 
eünstigeen Abonnementspreis 
enthalten. | 

® Es entstehen Ihnen keine weı- 
teren Kosten. 

® Sie werden optimal infor- 
mierl. 











Jahres- 
Abos 

Dies ist der 
Weg zu einem 
echten Super- 
Knüller: Sie 
können wäh- 
len, welches 
Jahres-Abon- 
nement Sie be- 
vorzugen! Wir 
sind sicher, es 
ist für jeden et- 
was dabei. 


En Übrigens: Bei 


dem Super- 

De: Kombi- 
Abo spa- 

m ren Sie 


5 enorm, 
7% nämlich 
| ganze 
41 Mark. 
'Wenn das 

nicht 
lohnt ...? 


HOMEComrUTER $I 
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| Fortsetzung von Seite 40 | - Mi 
| | en | 
4 1Asa CAIL HCHARCHLSAL,.ZII: IF 216995 THEN ZISZBACHRBC Z1 90 Alefii+i1 :: IF Al=38 a5 

THEN iaad ELSE 9aR ELSE 1978 ’E 


| 
|  jAara 24=SEG8t278,1,LENCZEI-19:: GOTD 988 | | 
| ® | 1asa TNP=PL1)ı: BEcBl Y=Z4 :: DISPLAY AT£13+B1X2, 1SPBEEF:Z# ı: FOR Ist TO 1800 
| ı NEXT I 
1930 Ak="" :: PT,ZA=A :: CALL DELSPRITECALLI:: CALL CLEAR :: RETURN 
109 CALL CRASHESP,PPII: DISPLAY ATC1,3)BEEP: "OUT OF ATMOSPHERE!" :* FOR I=i TO 
za 1: NEXT I :ı CALL HCHARC1,3,32,:229: RETURN | 
x iim CALL DELSPRITECALLI:: CALL CLEAR :: CALL SCREENCILI: CALL CHARSET : FOR I 
'® +, =2708 :: CALL COLORC1,2,119:: NEXT I 
| ; 1128 PRINT " SPIELAHLETTUNG un  , 5 | 
| ı {43a PRINT "SINN DES SPIELES IST ES.DEN",,:: PRINT "LANDER AUF DEN FLATTFORMEN" 
‚tı PRINT "DER KRATER ZU LANDEN.DABEI": ; 
|  i149 PRINT "MUSS EINE BESTIMMTE GESCHWIN",. 1 PRINT "DIGKEIT EINGEHALTEN WERDEN. Ä tes 
Io | ",,:: PRINT "CDER SCHWARZE GESCHWINDIG-",, | in wo 
1150 PRINT "KEITSANZEIGER MUSS SICH IM",,:: PRINT "GRUENEN BEREICH ODER DARUE=" | | 


s | itsa PRINT "BER BEFINDEN. )JE GERINGER", PRINT "DIE GESCHWINDIGKEIT," ).,,'' DI ı 2 
1 SphAY ATC24,.19): "WEITER MIT ENTER >>" BE 
| 17a CALL KEYC3,K,S):: IF K£>13 THEN 1178 | | | | 0 
| ® | 1198 CALL CLEAR ©: PRINT "DESTO GROESSER DIE PUNKTZAHL",»:: PRINT "UND DESTD MEH 0 
3. R FÜFL BEKOMMT". | al Bere 0 
| “ ' 1198 PRINT "MAN DAZU.BEI EINER NICHT GE=-",,:: PRINT "GLUECKTEN LANDUNG ODER BEI” a 5 

I #3 i I) 
|209 PRINT "BERUEHRUNG DER FELSEN ER-",.:' PRINT "FOLGT EIN CRASH,UND MAN BE=Ä4 > | Kern) 
8! ıı PRINT "KOMMT FUEL ABGEZÜGEN. "ı>; | ee WW 
| ‘ 4e1A PRINT "STEUERUNG!" :: PRINT "—————- --". +: PRINT "JOYST.CL>=LANDER NACH RE {H 
|. 264184, | u 
| ® . 1228 PRINT "JOYST.CR=LANDER NACH LINKST In „4 227" DISPLAY AT(24,265:"33" “. 5 
+ 47238 CALL KEYE3.K,S): IF K£>13 THEN 1239 | Zu. 

1248 CALL CLEAR :: PRINT "IOYSTCU)=LANDER NACH OBEN". PRINT "JOYSTCOS=LANDER a 

NACH UNTEN", ‚ = 
| 4758 PRINT "DAS SPIEL IST ZU ENDE,WENN",»:: PRINT "DER FUEL AUFGEBRAUCHT IST." ,; | = 
|. ' 1269 PRINT "GUTE ERGEBNISSE KOENNEN AM", +: PRINT "SCHLUSS IN EINER TABELLE EIN" wi. 
| 1 452: PRINT "GETRAGEN WERDEN.DIES ER-", 2 ENT 0 
| 5 4278 PRINT "FOLGT DURCH BEWEGEN DES JDY-",.:: PRINT "STICKS UND DURCH DRUECKEN , | dir 
8 ! ‚»:: PRINT "DES FEUERKNOPFES.VIEL SPASSI": 1 : ee = 

‘ {eAa DISPLAY ATC24,19)1"START MIT ENTER >>" | | 27 
| 5 41990 DALL KEYL3.K,S): IF K<>13 THEN 1298 ELSE AA=i ı' Keß ı GOTO 322 Zn - 

© | ana RESTORE 89 :: FOR let TO 96 :ı READ A,B,C ı» CALL SOUND« 288,9,0,8,5,C,59' u 

FALI KEYEA,K,S)ı: IF S=Q THEN 1310 ELSE IF K=118 OR K=78 THEN 688 u 
_ ) ala IF K=1d6 OR K=74 THEN 1110 vu 
| ® . 432@ NEXT I :: GOTO 1398 ıı GOTD 688 eu 





' 4239 CALL MOTIONC#LS.0,0,#16,8,99:: CALL HCHARC24:16,88):: CALL DELSPRITEC#LA) | SH 
Be 1249 FALL SOUNDE-6B0,262,09:: CALL SOUNDC300,339,09:: CHLL SOUND 300,392,091: CA a 
KerfglEE SOLINDT 609, 523,0,392.0,328,0) | | ir = 

' dasn CALL SOLUND«EOB,523,0,449,9,349,0)ıı CALL SOUND( 688,523,0,392,8,330,05:: FÜR Bl 
| = '‘ 1=i TO 1AG :ı NEXT I | are 8 
| . 1a6A RESTORE 1328 :: FOR 1=18 TO 26 ıı READ B :: CALL HCHARCIS,T.BDH: NEXT I ©: | ER 
| FOR I=1 TO 508 ı: NEXT I :: GOSUB B28 m 


- 
en 
Wer 


| ® | 1370 coTO sa | eu 
| 3 4388 DATA 71,65,77,69,32,79,86,69,82 | Bu 
3 1390 SUB CRASHCSP,PP):: CALL MOTIONC#14,0,@,#15,0,0,#16,0,9):: CALL SOUNDG-IBad, °F 
a Zur #75 0 
1 1408 CALL PATTERNCHI4,92): : CALL COLORCHI4,199:ı FOR I=1 TO 200 »: NEXT I so: CL oO, 0 WE 
= L POSITIONCRLS,GSHD | ee 
ı® : 1418 FOR let 10 PP :: CALL HEHARC24,SP,98):: SP=SP-1 ı; CALL LOCATECHIS.G.H-IKB) © © 
3: NEXT Ts FOR ei TO 58 :ı NEXT I: SUBEND 0 
= ' 1420 SUB MELODYICZU.SP,PT):: FOR 1=262 TD 523 STEP 38 ı: CALL SOUNDE-38,1,5ı 0 oT 
"ALL SOLINDE-99, 1438,59: CALL SOUNDG-9B, 1469,59: : NEXT I | 
| 1438 CALL SOUNDCE08,523,5,392,5,330,5>:ı FOR I=1 T0 398 +: NEXT I | : 
® ; 1448 DAL POSTTIONWIS,E,HIN. ZEMZ2-GHSBDRZU (DISPLAY ATCIB, 14)S12EEB). 22H 0 1 o I 
SR ZU ı Mu 


. ı 1454 CALL MOTION #16,8,19:: FOR Tel TO ZE I! PT=PT+id ac 
© ı as DISPLAY ATC20.2A)SIZELLENCSTRACPTIP+LI:PT :: FOR ABei TO 7 :+ CALL SOUNDC-2 DE. 
‚ 9.739. AB: NEXT AB | 
- ' 147A IF SP=32 THEN CALL MDTIONC#16,B,93:: GOTO 1500 m 
“ ' 44aa FOR A=f TO 40 ı: NEXT A nn 
ı 149A IF 17/3=1NTEI/3)THEN CALL HCHARC24,SP,127 9: SP=SP+l . | | 
o | 159M NEXT I :: CALL MOTIONCH16,9,05:: CALL HCHAR« 18, 14,88, 189) SUBEND | 
' isia sUB MELODY2 1: FÜR I=523 TO 262 STEP -38 :: CALL SDUNDE-98,1,855:: CALL SOUN 
 -DE-9A,1-38,55:: CALL SOUNDC-38,1-69,59:: NEXT I | | 
15>9 CALL SDUNDCSBB, 131,5, 165,5,196,5)1: FOR I=i TO 568 :: NEXT I :: SUBEND ı © 
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153# SUB BILDEPPI:: CALL CLEAR ıı CALL SCREENCI1S:: CALL DELSPRITECALL) 
154A DISPLAY ATC2,5): "WAHL DER SPIELSTAERKE:" :: DISPLAY ATf6,5%:"1=LEICHT" 1: D 


'® | 19PLAY ATCB,5):"Z=MITTEL" 


js59 DISPLAY ATC19,55:"3=SCHWER" ı: DISPLAY ATC15,57:" IHRE WAHLT" 
{568 ACCEPT ATE 19, 153VALIDATEC" 123" IBEEP SIZELLD:PP :: FOR I=l TO Sa0 ı: NEXT I 


B : 14 SUBEND 





Ziel des Spieles ıst es, eine möglichst 
große Strecke mit dem Geländemotor- 
rad zurückzulegen. Dies ist gar nicht so 
einfach, da mehrere Hindernisse zu 
überwältigen sind. Ein Stein oder eine 
Mulde darf auf keinen Fall mit dem 
Vorderrad berührt werden, daher gibt es 
nur zwei Möglichkeiten: ein Sprung (J) 
oder aufidem Hinterrad fahren (W). An- 
dermfälls bleibt ein Sturz unausweich- 
lıch. Bei einem Sprung sollte man ver- 
meiden, mit einem Vogel zusammenzu- 
stoßen. Große Mulden Rihrt man hinun- 
ter, in diesen darf (D} nicht mehr ge- 


drückt werden. Es sind auch Höhlen 
vorhanden, die man entweder über- 
springt oder durchquert. Ein Sprungver- 
such in einer Höhle oder Mulde endet 
immer mit einem Sturz. 

Ab und zu taucht ein zweites, langsame- 
res Motorrad auf, dem man nur durch 
Überspringen ausweichen kann. Nach 
einiger Zeit kommt ein Verfolger’ in 
Sicht. Dieser ist schneller und ist nur 
durch übermäßiges Ablassen von Aus- 
puflgasen abzuhängen. 

Während der ganzen Fahrt wird Benzin 
verbraucht, beim Springen, auf einem 





- Jagen Sıe Ihre 
 Moto-X-Maschine 
über Stock und 

Stein! 


Rad fahren und Auspufiqualmablassen 
steigt der Verbrauch gewaltig. LIm nicht 
wegen Spritmangel auf. der Strecke zu 
bleiben, besteht die Möglichkeit, mit 
den von Zeit zu Zeit auflauchenden Ka- 
nistern den Tank aufzufüllen. Dies ge- 
schieht durch Berühren derselben. 

Die Punktzahl richtet sıch nach der Län- 
ge der überwundenen Strecke. Der Start 
erfolgt auf dem Hinterrad, indem man 
(W) drückt. 


Und nun viel Spaß!!! 





Programmaufbau: 
Zeile 
Üü- #8 Copyright-Zeilen 


g- ?60 Variablen vorbereiten, 
Startbild 

000-1410 Hauptprogramm mıt Ta- 
staturabfrage und Hinder- 
niskonirolle 

2000-2040 DATAs für die Hindernis- 
strecke 

4000-4240 Ausdruck der Hindernis- 
strecke am rechten Bild- 


schirmrand 

6000-6540 Ausdruck bei Kollision mit 
Hindemis oder Sturz, 
Spielende 

7000-7200 Fremder Motorradfahrer 
(Verfolger) 


Laden des neuen Zeichen- 
satzes, Scroll-MC 
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gg Programm abSAVEn 


Variablen-Liste: 


B = automatisch Bergaufflähren bei 

© = Punktzahl 

D= Motorrad nach vorn geneigt (D>2), 
waagerecht (D=2}), Vorderrad 
oben (D=1) 

E = Grasbüschel bei Bergabfährt aus- 


drucken (E= 1) 
x-Position des Verlolgers 
- Sprung 

Benzin-Kanister (K = 1} 


I ee 
Tu a 


bild 
= Benzin in lDtel Litern 
Auspuffqualm (Q= 1) 
- Verfolger vorhanden (R = 1} 
5 = Stein im Weg (5=1) 


ve Be) 
u 1 Mn 


x-Position des Vogels beim Start- 





T = Ausdruck des Steins nach Überfäh- 
ren 

Verfolger wird von Auspufligasen 
eingequalmi (U =1) 

= Woeel in der Luft (V =1) 

= READ-Variable für die Hindernis- 
strecke 

y-Position des Motorrades 

I= FOR-NEXT Schleifen 
A,F,G,H,L, ©, X, Z=Fesistehende 
Werte, um Speicherplatz zu sparen 


U= 


Tastaturbelegung: 

(W) .... Starten/auf'einem Rad fahren 
(wheely) 

(D) .... Hinunterfahren (down) 

(5) .... Auspuffqualm (smoke) 

(]) ... Sprung (jump) 

[A) .... neu Starten nach Spielende 
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Programmeingabe: Scroll-MC abSAVEn (SAVE „wh- Zeichensatz durch GOTO 9999 





|.Das Hilfsprogramm („wheely“) mc“ CODE 31957,810), abSAVEn 
eingeben und laufen lassen (Fehler in 2.NEW eingeben und'das Hauptpro- Das Programm wird mit LOAD „wh* 
den DATAs werden angezeigt), zur gramm eintippen von Cassette geladen und lädt dann au- 
Vorsicht den neuen Zeichensatz und 3. Das Hauptprogramm mit dem neuen tomatısch „CODE” und startet. 
er TEIL] ‚176,224 ,0,254,231,195,195, 237,1 ”„ mu 
2 5 REM ##+##+#+#+#+ WHEELY ######+# 26,50,0  - 
I. ı8 REM MC-Zeichensatz-Loader E70 DCATA 1344,103,79, 2208,38, 24, ı m De 
| | 2a CLEAR 31956 28,15,7,128,192 224,96 ,965 ,224,19 | ER 
u. 39 REM MC-S5Scroll 2,128 | 8 net 
180 RESTORE 129: LET sun=0: FOR 568 DATA 1733,69,126,251,195,19 en 
r f=31957 TO 31999: RERD a | 5,231.1265,59,9,0,1,1,1,125,255,1 (a u 
“| 418 FOKE f,a: LET sum=sum+a: NE sı u 
' xT f; IF sum<+33586 THEN PRINT AT 530 DATA 1397,249,161,39,16,233, MB 
“ 19,2; FLASH 1," ERROR "; FLASH 31,15,208,207,198,126,69,9,90,0,0 ” 
, -8;" in den Zeilen 1208-178": STOP 680 DATA 1615,9,128,64,53,248,2 


24,1908,145,8,8,0,08,0,95,240,192 
85129 DATA 1251,0,6,15,1,60,126,2 





128 DATA 8,8,192,533,1,54,17,8 













mi ar N ante 31,195,1,3,6,135,201,82,98,101 
Im r a an 820 DATA 744,128,64,192,9,0,0,0 
| 150 DATA 16,241,6,24,58,177,92 '128,8.0,68.68 40 Jo i6.a ag 
| © | sa DATA 197,1,31,0,237,176,43 BE ann een a enge 
' 17a DATA 119,35,35,19,193,16,24 ‚0,195,231,126,50,0,0,0,0 | 
Io! 2 FA | 548 DATA 1610,100,103,75,77,127 
nn ‚50,0,9,95,16,144,224,232,92,200 | 
'e | ins RAM vebertragen ‚54 a 
are Sa El Eh 650 DATA 320,160,144,16,0,0,0,0 
218 POKE 32898+f,PEEK (15616+P) .:0,.850.0.0.8.:9.0 | 
ee N NE hr 788 PRINT AT 7,0;"Starten des M | 
SE LEN Ze SE NENe ee C-Scroll :"'TAB 19; "RANDOMIZE US 
© | 409 RESTORE 498: FOR f=32472 TO Se angess '® 
ee a = | 718 PRINT AT 9,0;'"Neuven Zeichen | 
' 410 LET sum=8: READ ch: FOR 9=0 22607 ,124" | 
# | rege ee 728 PRINT AT 11.8; "Alten Zeiche .g 
“| #20 REAB a: PORE fr9,8 nsatz einschalten:" "TAB 18; "POKE {ie 
| 3 438 LET sum=sum#a: NEXT 9 Sana 60: IM 
je: 448 IF sum<>ch THEN PRINT FLASH 730 PRINT AT iS,0: "Auf Gassette 8 
' 1,AT 12,2;" ERRÜÖR 10} FLASH 8; ' SAUEN:"*"" SAUE ""uh-Nc""CoDbE 
u! in Zeile ";49B+45#+[11l-324721 75: 5T 31957 ,810" | 6 
OR 820 STOP | 
a FRFOLNENTER m er ya. 1808 SAVE "wheely” Be 
®@ ı 468 PRINT AT 3,10; FLASH 1; "All nn I 
ee ee 1 Bis, = 
ı®: 469 REM DATA-Zeilennummerierung |j I:e| 
l | nicht versendern I ll I; | 
| | 420 DATA 2205,1,5,23,19,15,111, la 
| 63,255,128,169,232,200,240,246,2 9 I 
| , 52,255 1 Bi: 
|® | s@B DATA 1894,5,45,191,255,255, g [* 
| _ | 289,255,255,0,0,0,16,52,124,126, g 1 
|® =1e) j g ® 
| - 528 DATA 1558,14,17,127,219,258 = 
ı® | »219,219,1256,80,7,92,255,23,14,6, g: © 
' 0 Ä 
|. |- S3® DATA 992,9,50,255 ,26,438,56, I BR = 
| ” | 12,0,32,140,32,74,136,86,5,40 | Übrigens: 1;® 
8 540 DATA 575,0,0,0,24,60,49,61, | Große Firmen erreichen M - 
|® . 21,0,0,3,23,200,49,62,113 f & 1,® 
550 DATA 410,02,0,0,0,192,0,0,80 | „kleine Kunden“ durch I 
| @ | .29,18,16,8,9,7,02,58 1 _ ANZEIGEN-WERBUNG! I © 
| Ss&E0 DATA 2512,240, 215,252,55,24 (Ca HE FE m I EEE EEE Fe m m mn B 
EEE | 
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ER Ge U nn TEE rn Te 


TEIL? 1888 IF J=3 THEN LET D=J: LET Y= 19 
1 REM ##2#3##22#4#2####4##+040 444 5 ee 
2 REM ## ZX-SPECTRUM 16K ##+ 1898 IF J=5 THEN LET Y=7 ss; u 
3 REM ###%+## * WHEELY " ##+373%3 1188 IF J=5 THEN LET Y=8: LET D= | H 
4 REM #+# @) 19654718 ++ n 
| 5 REM ## BY KLAUS RAAlck #+ 1110 IF J THEN LET J=J-Z: LET P= 
| 5 REM *#+ TEL. 05235/5669 ++ P-.2: IF J=2 THEN PRINT AT 3,R;" li 
7 REM #Z37#4##4=4S 444444444 HH Hr ” . '@ u 
| 5: 11280 IF Y=A AND NOT J AND I«S AN SE 
| 9 LET H3=8 BD INKEY$="J" THEN LET J=s6: LETB ) 9 5 
18 LET Z=1: LET %=8: LET A=19: =2: LET Yz8: LET P=sP-,5: LET Cab ! R 
I LET Bs%: LET CSXS LET D=2& LET +Z: IF SCREEN$ t18,F)="1" THENL ı „ 55 
' E=X: LET F=12: LET 6=31: LET H=l ET J=4 u 
ı 1: LET Isk:- LET J=eX: LET KaX: LE 1138 LET S5=%: IF SCREENS (W4S,Fl |. h 
ı  TiL=i13: LET M=Z: LET O=s1d4: LET 8 ="#+" THEN LET 5=Z; LET T=4 WW 
| eX: LET Rad: LET S=X: LET T=X: L 1148 IF ATTR (Y#2,Fi=5 OR ATTRL 5 :: 
' ET U=8: LET V=aX: LET Y=A Y+2,R}=5 THEN GO TO 8050 'o 


28 LET P=388: RESTORE 2E3: POÜkR 
E 258558,9 

38 RESTÖRE : PRPER x: BÖRDER x 

INK 7:2 CES5 

188 FOR N=-X TO G: PRINT INK 4,RA 
T 68,8; "1"; AT I5,N: "WERT 216,0; U 
": NEXT N 
| 206 FRINT INK 6; AT H,H;,"tr",AT F 
tt ,PA;"noa"; AT L,RA;"nPpn"; AT L,5; 33 
ı 2 

218 PRINT AT F,7;" d": BEEP .8 
1,-G: BEEP .881,6: FRINT AT F,$, 


1158 IF ATTR (A,F)l=3 OR ATTR (A, | 
HI =3 OR ATTR {A,Al=3 THMEN IF J>Z Pr 
THEN LET Us=sZ ee jan) 
| 
1 


1180 IF D>2 THEN PRINT INK 6;AT | 

YazsRy Stu"; AT Naasnuz nat + 
3,Hj "mt"; IF SCREENS (Y+3,A) c3'S 5, 
" THEN IF J«2 THEN GO TO 6180 '@ 5 
1178 IF D=2 THEN PRINT INK 6;AT He 
Y+2,H;"r"; AT Y+b,A;"nog'"; AT Y+3, “> 3 
A; "mpm" Eu 
1150 IF D=Z THEN PRINT INK 6;AT ı | 
Y+z,A;"efg";AT Y+2,A;"hisJ";AT Y+r 5 


"d '!: BEEP .91,-25 SA kl in 
' 22a PRINT. INK-S;AT A,G-N; "ch; I 1199 IF INKEY$="S" AND D=2 THEN ı ® TS 
"NK 75" ";AT 2,75"SCORE : en PRINT AT Y+D,9; INK 7;"d": LET O | Be 
ı 3,7; ®"FUEL = "SPZRA:' ": LET-P=INT =7Z: LET F=P-,.5 id we 
t{PsA-11 7A 12988 IF Ji2 AND 5=Z AND Di>5 THE | Me; 
| 238 IF INKEY$="U" THEN GO TO 26 N-PRINT AT L,A;" ": 60 Bo :„. 


1210 IF T THEN LET T=T-2: IF NOT ı 
T THEN PRINT AT Y+43,8; NK a; ! 5 


‚9 
240 IF Pi=& THEN GO TO 65088 


ı 258 PRINT AT F,7;"d ": BEER „81 +" AND Yı=n) | BE 
| 4=85: PRINT AT A,6-M; INK 3; "b": 1220 IF B THEN LET Y=Y-Z | 50 
' LET M=Z+iM AND Mi=6): PRINT AT 1238 IF U THEN LET Y=8: LET U=X: ı = 
Ve en na ner. Go TO 663 HR) 
1. 868 PRINT AT 8,7;" "AT 12468 IF K THEN LET K=X: FOR N=Z Ei 
a oe "AT F TO 5: BEEP .001,20: BEEP „001,25 | 


ee a a 

1888 IF IHKEYS="U" AND D=2 THEN 

LET Db=eZi: LET P=P-2 

18106 IF & THEN PRINT AT B+#VY+2,5; 
NZ CE TS OEN 

u! 1828 IF 5SCREENS (Y+3,P)="L" THEN 
LET B=Z: IF-YW+A THEN: LET D=2 

1 1830. IF Y=A AhHb INKEYS="D" THEN 

LET Db=4: IF SCREEN$ (18,0)="]1" T 
HEN: LET C=6 

1840 IF NOT J AND E+2 THEN LET Tr 
=\'+Z 

1358 IF SCREEN$ IF,F}='"b" AND (Y 
+8 OR J=e4 OR J=3) THMEN LET Y=A-i 
a AND JIi: GO TO BE3+1(1508 AND NOT 

| 

' 1868 IF J=2 THEN LET Y=A: IF 5CR 


NEXT N 
1258 IF NOT J AND D=Z AND ’SCREEN 
*$ (Y+5,Al="x" THEN 60 TO 6E3 | 
12560 IF SCREEN$ (r+r4,A)="4" THEN ı 
IF SCREEN$ tY+4,HI="[" AND Di>Zz | Bi: 
THEN ERINT PT LA," ": one a ie 
2% u - 
1278 IF Yill THEN IF SCREEN tid , _ 
‚Al=" " THEN IF SCREEN$ t14,9)1=" |" 5 
1" AND. NOT J THEN LET Y=Y+l: GO 
TO 6E3 
1288 LET P=F-Z: IF SCREENS (Y+3, 
Li="a" THEN LET P=P+68: LET K=Z 
1298 IF Pi=X THEN GO TO 8508 
1388 RERD WU: IF U=939 THEN RESTOR | „ 
E 2E3: GO TO 1488 
1310 INK 4: GO SUB 39308+J#A: INK Si 


2 E — u (m a he ah u — = = Li 





| PR FEy* 

EENS (Y+4,A)=" " THEN 50 TO 6E3 7 u 

‚ 1878 IF Yyil AND tINKEYS="D" OR 1328 LET C=C+Z | 3 
| INKEY$="J") THEN LET Y=Y-{2 AND 1338 IF U THEN LET R=%: LET I: ,08 5 
| Ye>14): GO TO 6ES+I5O AND Y=1dı LET U=X: GO SUB 7280: LET Isx: He 
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PRINT AT H,3;" 

1548 IF R THEN GO SUB TES+AFTI: L 

ET I=I+rZ 

15358 IF I=H THEN LET D=Xk 

15686 IF b;2 THEN PRINT AT Y+Z,R; 

AT Y+2,R;" "AT Y+3,H;" 
LET Bb=eb-Z: IF D=2 Ahb Y+9 TH 

EN LET E=Z 

1378 IF BD=2 THEN PRINT AT Y+Zz,Hh; 

";AT Y+D,A;" "AT Y+3,A;" 


13858 IF D=Z THEN LET D=2: PRINT 
AT W+Z+B,A; " "AT Y+b+B,R; " 
"SAT Y+3+B,A;" 
1396 LET E=k: RANDÖOMIZE USR 31935 
7: IF EsZ THEN FRINT AT Y+3,9; 1 
MA 4, FT: LET EeXk 

l4868 IF IsA AHb 0 THEH LET UsZ 
1418 20 TO 1E3 

2000 DATA 20,2, 7,24,2,3,4,4,23,4 
„4,5,6,19,2,2,6,20,742,2,2,8, 9, A 
24227720, 2,2,3,H,F,L,16, 18, 21,1 
6,22,17,16,L,0,15,5,6,7,2,2,2,8, 
20 Mir dei ae zZ, 8,7, 


2010 DATA 2,7,7; 19,2,3,4,4,23,4, 
4,4,5,6,7,25,7,2,6,2,742, 19,2,6, 
1,20,2,2,7525,25247419,2,6,24,2, 
3,H,F,L,16,22,16,18,21,L,0,15,5, 
6,2,20,7,2,2,25 
2020 DATA 2,2,2,2,3,54642, 24642, 
8,9,4, 2,7474 24 343H, F3L4+L4L4 22,17, 
16,22,21,18,L,0,15,5,6,2,6,19,2, 
3,H,F,L,L,16,22,16,17,L,L4L,22,1 
6,21,L,0,15,5,& 
2030 DATA Z,7,2,8,9,A,2,2,2,2,7, 
25,7,2,27,20,2,6,19,7,2,20,2,7,19 
„2Z,20,2,2,20,2,3,4,4,4,5,6,24,2, 
3,H,F,L,16,22,17,18,L,0,15,4 
2040 DATA 23,4,4,5,6,8,9,A,27,2,7 
2,6,2,6,19,2,7,2,27,20,2,6, 2,252 
27,7,19,2,7,99 


3000 PRINT AT 0,0; "1";AT 15,8; "2 
"sAT 14,8; "WW": RETURN 

4010 GD SUB 4E3: PRINT AT D,0;"\ 
"ı RETURN 

4020 FRINT AT 15,8; "%4";AT 15,8; " 
M": RETURN 

4030 FRINT AT 15,8;5"]1": RETURN 
4040 PRINT AT 15,8; "[";AT 15,8;" 
Bi": RETURN 

4050 GO SUB 4E3: PRINT AT 0D,6;"L[ 
": RETURN 

4050 GD SUB 4E3: PRINT INK 25 AT 
L.83"”"ı1 RETURN 

4070 BD SUB 4E3: PRINT INK 5; AT 
F„,B;"n"3AT L,8; "m": RETURN 

4080 GO SUB 4E3ı FRINT INK S;AT 
H„Bj eNIAT F.61 "o"sAT L.&4 Im’ R 
ETURN 

4070 GO SUB 4E3ı PRINT INK 5;AT 
F,5;"qg"sAT L,87"m"r RETURN 

4160 FRINT AT 15,8; "%"3AT 17,85" 
E"ı RETURN 
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4110 PRINT AT 17,0; "\"ıAT 18,63" 

M": RETURN 

4120 PRINT AT 18,6;5"J": RETURN 

4130 PRINT AT 17,8; "["z3AT 18,87" 

MM": RETURN 

4140 PRINT AT 18,83 "[";AT 17,685" 

a": RETURN 

4150 60 SUB 4120: PRINT AT 0,63" 
J"3 RETURN 

4150 BO SUB 4150: PRINT INK 53AT | 
L,5B;"a"s RETURN | 

4170 50 SUB 4150: PRINT INK 55 AT 
17,6;}"a": RETURN 

41580 GO SUB 4E3: PRINT INK 3;AT 

A,B:ı"b"ı RETURN 

4170 E00 SUB 4E3: PRINT INK 337 AT 

A,G;"c": RETURN 

4200 BO SUB 4150: PRINT INK 25AT , 
L.E5"”*"ı RETURN 

4210 GO SUB 4150: PRINT INK 24 AT 
17,85 "*": RETURN 

4220 PRINT AT 15,6;5"J"3 INK 25 AT 
15,84 """: RETURN 

4230 LET R=Z: BO SUB 4E3: RETURN 

42430 BO SUB 4E3ı PRINT INK SAT 

F,65"b": RETURN 

&000 IF SCEREEN$ (Y+4,H)="[" THEN 
LET Y=9 | 

&010 FOR N=7Z TO 3: BEEP „01,231 
PRINT INK 53AT Y,Az" "SAT Y+2_ 
„Hi"sm"3AT Y+r2,As"myz"sAT Y+3,Ar 
"fh"s BEEP .01,-251ı LET YeY+Zı N 

EXT N 

5020 BEEF .„.01,„-20: PRINT INK 534A 

T YA" "HAT Y+Z,Ag"mim"sAT Y+ 

2,A}"yhz"s BEEP „Ol,-D 

6030 IF SCREEN$ (1B,F)="]" THEN | 

FOR N=Z TO 2: LET Y=eY+Z: FRINT I 

NK 65AT Y,As" "AT Y+Z,Ag "mim" 
sAT Y+2,As"yhz": BEEP „O1,-0: NE 
AT N 


6040 BEEP „O1,-23ı BEEP „3,60: B | ” 


EEP .O1,-15: PRINT INK #3 AT Y+Z, 
Az" "AT Y+2,Ar"mam"s: BO TO 55 
O0 
5050 PRINT INK 55AT Y+1,A;" stu" 
AT Y+2,A;" Hyz"sAT Y+3, Hz" mt"z 
BEEP „01 ,-20: IF YA THEN PRINT ı 
AT Y+3,Az" " | 
5040 BEEP „.01,-25: PRINT INK 45 A 
T Y+l,H5" m)"3AT Y+2,H3" yergAat | 
Y+3,Fı"mt": BEEP „0i1,-20ı IF IeH 
THEN PRINT AT F,„A; INK 57"g" | 


6070 BEEP .01,-0:3 PRINT INK 6 AT 


Y+l,F3" "IAT Y+z2,Fr" mim" sAT Yo 
+3,.Fr" yho" , 
6080 BEEP .01,-23: BEEP .3,60: B 
EEP .01,-01 PRINT INK 53AT Y+2,L 
st AT Y+Z,L}"mom": GO TO 650 
a) 

&100 IF SCREEN$ (15,F)="\" THEN 
PRINT INK 43AT. DO,Ar"I\": LET 
Y=B: GD TO 56E3 


_—— E .— er € un 
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&110 IF SCREEN$ (15,F)<>"\" THEN 
IF SEREEN$ (0,F)s>"\" THEN IF S 


'.„EREEN$& (0,7}="J" THEN LET Y=hı P 


RINT INK 45 AT 0,H3 "11" AT L,Ag" 
"s BD TD 5050 

6120 IF SCREEN (0,9)="\" THEN P 

RINT AT 0,A}" ": LET Y=A: GO TO 
6E3 

&130 PRINT AT L,A;" "zAT D,Az" 
": 60 TO 8050 

6500 IF P<=X THEN LET F=X: IF HS 

<i THEN LET HS=0 

#510 IF C>HS THEN LET HS=C 

6520 PRINT AT 3,77"FlEL ı ";P/R; 

AT 2,73 "SCORE 1";5C; AT 4,7; "HIGHS 

CORE ı ";H8S | 

5525 PRINT #0; INK 4) "DRÜUECKE (A 
yıM 


6550 IF INKEYS<S>"A" 
3350 
65540 GO TO A 


7060 PRINT INK 55AT F,X,"gq"3ATL 


«iı"m"ı RETURN 


7010 PRINT INK S;AT H,%3"r"sAT F. 


‚Kı"og";AT L,%;"pm": RETURN 

7020 PRINT INK S5AT H,%5" r"zAT 
F,%kı"nog"ıAT L,%X3"mpm": RETURN 
7030 PRINT INK SAT H,%3" 


7200 PRINT INK 55AT H,I-35" r" 
nog"z3AT L,I-3" mp, 0 


AT F,I-3;" 
m"s RETURN 


9990 CLEAR 31956: LDAD ""CODE 


POKE 23607,124: RUN ® 
9999 SAVE "wh" LINE 9990: POKE 2 
3736,181: SAVE "WH-CODE"CODE 317 


THEN 60 TO 6 


r"sAT 1. 
F,%3" noqg"z;AT L,%;" mpm": RETUR , 
: 1 
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Programmbeschreibung: 


DATAGEN fragt zuerst nach. Anfang 
und Ende der Maschinensprache, dann 
nach der ersten Zeilennummer der 
DATA-Statements und ab wo die 
DATA-Zeilen in den Speicher geschrie- 
ben werden sollen. DATAGEN warnt 
automatisch, wenn man versucht, das 
Programm selbst mit Daten zu über- 
schreiben. Der User muß daraufachten, 
daß die generierten DATA-Zeılen nıcht 
ın die Maschinensprache hineinwan- 
dern und diese evtl. „überholen“ (für 


DATAGEN erzeugt 


automatisch Data-Zeilen 











Ab und zu besteht die Notwendigkeit, den Hexcode eines Maschinenprogramms ın 
BASIC-DATA-Zeilen abzulegen - z. B., wenn ein in Assembler geschriebenes 
Programm als Teil eines BASIC-Listings gedruckt werden soll. Das Umschreiben 
„von Hand“ ist bei längeren Maschinenprogrammen langwierig, umständlich und 
kann zueiner „erstklassigen“ Fehlerquelle werden. DATAGEN erzeugt aus Maschi- 
nensprache im Speicher automatisch, DATA-Zeilen. 


jedes Byte Hexcode werden 3 Bytes 
DATA erzeugt!). Daher ist es am sicher- 
sten. den Hexcode möglichst unten 
(&H2300) ım Speicher zu laden und dıe 
DATA-Zeilen nach dem Ende des Co- 
des zu erzeugen. 

Die DATA-Zeilen können als BASIC- 
Programm oder mit CSAVE,A als AS- 
CII-Liste auf Kassette gespeichert und 
nach einer der bekannten Meihoden mit 
dem dazugehörigen BASIC-Programm 
und -Loader verbunden werden. 
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198 CLS:PRINT@44, "transfer" PRINT :PRINT" DIESES PROGRAMM ERZEUGT AUS MASCHIN ı _ 


© : ENCODE DATA-ZEILEN. "PRINT" AM ENDE DES PROGRAMMS KOENNEN DIE DATA-ZEILEN MIT 


' FLOAD ODER CLOAD,A ABGESPEICHERT UND DANN MIT EINEM ANDEREN PRÜGRAMM VER BUND | 


EN WERDEN." :P ur, 

| {18 INPUT" BEGINN DES MASCHINENPROGRAMMS "BEGINN 

| ‘ {2 INPUT" ENDE DES MASCHINENPROGRAMMS "SCHLUSS 

ı® , 138 INPUT" ERSTE ZEILENNUMMER" ZN 

| ‘ 149 PRINT: INPUT" ANFANG DES DATENFROGRAMMS IM SPEICHER" ANFANG 


15@_IFCPEEKCAHIF IKZSEHPEEKC H2O)+L@IFINFANG THENPRINT" ANFANGSRDRESSE ZU NIEDRIG  _ 


ı = 11:G0OT0148 
| 169 CLS:PRINTBES, "DATA=-ZEILEN WERDEN BERECHNET | ":PRINTE2B2, "BITTE WARTEN" 
a. 1ra POKERNFANG-1.8:A=ANFANG 

1889 GOSUB3BB - 
198 FORZ=ANFANG+S TORNFANG+Z39 STER3 
200 AS=HEXStPEEKC BEGINN) IFLENCABICZ THENAE="0"+AR 

' 218 POKEZ,ASCCLEFTSCAS, 1 9 POKEZ+1 , ASCERIGHTSCAB, 133 
_. : 228 POKEZ+2,&H2C :BEGINN=BEGINN+I 
"238 HEXTZ 
2448 POKERNFANG+Z241,0 
258 IFBEGINN>SCHLUSS THEN GOTO27O 

' 26 AHFANG=ANFANG+242 ı ZN=ZN+18 1 GOTO188 
‚ 278 POKERNFANG+242, 8: POKERNFANG+243, 8: Z=ANFANG+244 : GOTO4B8 


Tree U U 
BE 
a 
Eis 


EC ANFANG+2 ) ı ZN/256 ı POKEC ANFANG+3 9» ZN-PEEK( ANFANG+2 3*256 ı POKEC ANFANG +4 3, &HB6  RETU 
R 


N | 
40B POKELHOLDA,Z/256 : POKERHB1DB, Z-PEEKCSHBIDAIKZSE :POKESHLI,AV2SS:POKERHIAL,A-PEE 


| KC&H19 DK256 ' POKERH1B, PEEKCRHBLDA)' POKE@HLC, PEEK( &HBLDB) 
© \ 4i@ LIST 
. 420 END 





‚© 399 POKERNFANG, CANFRNG+242 37256 : POKECANFANG+1 ), CANFRNG+242 )-PEEKC ANFANG DKBSE:POK 


| i SL. 
u dt 0 

u . ' # = s I i # ih e F 
Rudi Rabbit begibt sich auf die —— wi, 
Suche nach der RIESENMOHRRÜBE! 
Es gibt eine alte Hasenlegende, die be- Sekunden schwarz und danacherscheint Punktzahl angezeigt. 
sagt, daß.es irgendwo eine riesige Mohr- die Information „Grafik wird erzeugt“. High Score; Zeigt die erreichte Höchst- 
rübe zu fressen gibt. Nach einigen weıteren Sekunden er- punkizahlan. 
Also ist es der Traum aller Hasen, diese scheint jetzt das Titelbild und cine Me- Level: Gibt den augenblicklichen 
Riesenrübe zu finden. lodie wird gespielt. Diese Musik beglei- Schwierigkeitsgrad an. 
Auch Rudi Rabbit hat sich vorgenom- tet Sie während des gesammiten Spieles, Way: Zeigt den noch verbleiben- 
men, diese riesige Mohrrübe zu finden. kann aber mit der «SELECT;-Taste aus- den Weg bis zur Riesen- 
Doch der Weg dorthin ist weit und mit und wieder eingeschaltet werden. mohrrübe in Metern an. 
vielen Hindernissen verbunden. Zum Spielbeginn drücken Sie den Ak- Time: Gibt die noch verbleibende 
RABBIT WALK ist ein absolut friedi- tionsknopf an einem beliebigen Joy- Zeit in sekunden an. 
ches Spiel füralle MSX Computer, denn stick, oder die Leerlaste, wenn Sie mil 
es wird nichts und niemand dabei umge- den Cursortasten spielen wollen. Punktwertung: 


bracht. Das Ziel von RABBIT WALK Sie bekommen jetzt das 3-dimensionale Wenn Rudi Rabbit einem Frosch, einer 


istes, in einer bestimmten Zeit zur Rie- Spielbild auf dem Bildschirm, und das Ratte oder einem Maulwurfshügel £T- 
folgreich ausgewichen ıst, so bekommt 


senrübe zu kommen. Schafli man es Spiel beginnt. | 
nicht in der vorgegebenen Zeitdie Rübe Sie schen Rudi Rabbit von hinten und er 25 Punkte gutgeschrieben. 


zu finden, so heißt es .TIMEOUT*und müssen den Hasen mit dem Joystick Berührt Rudi Rabbit eine Mahrrübe die 


das Spiel ist beendet, nach rechts und links bewegen, um den aufdem Feldweg liegt, so bekommt er 
Tippen Sie das Programm in Ihren MSX entgegenkommenden Hindernissen aus- 100 Punkte und zusätzlich 5 Sekunden 
| Computer ein und starten Sie diesesmit zuweichen. Zeit gutgeschrieben. | 
| „RUN“. Die Anzeige: Beim Erreichen der Riesenmohrrübe, 


| Der Bildschirm wird jetzt für ein paar Score: Hier wird Ihre aktuelle werden dem Hasen für jede verbliebene 
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Sekunde nochmals 10 Punkte guige- 
schrieben. | 
Schwierigkeit: 
In Level I ist der Weg bis zur Riesen- 
mohrrübe 1200 Meter, Grundsätzlich 
stehen Rudi Rabbit immer 120 Sekun- 
den Zeit zur Verfügung, um die Riesen- 
rübe zu erreichen. A 
Mit steigendem Level (max. Level 9) 
wird der Weg bis zur Riesenrübe immer 
länger (2300 Meter in Level 9). 
Kollidiert Rudi Rabbit mit einem 
Frosch, einer Ratte oder einem Maul- 
wurfshügel, so fällt er auf'sein Hinterteil 
und verliert somit jedesmal ca. 2,5 Se- 
kunden an Zeit. 
Wenn es Rudi Rabbit gelingt ın der vor- 
| gegebenen Zeit die Riesenrübe zu errei- 
chen, so geht es mit dem nächst höheren 
Level weiter. 
Ist die Zeit jedoch abgelaufen, bevor 
Rudi Rabbit bei der Riesenrübe ange- 
kommen ist, so heißt es „TIME OUT” 
und das Spiel ıst beendet, 









Tips für Disketten oder Quick Disk Be- 
nutzer: 

Wer ein solches Speichermedium be- 
sitzt, kann den Aufbau der Grafik zu 
Spielbeginn kräftig beschleunigen. 
Tippen Sie die Zeilen 300 bis 320 sowie 
die Zeilen 1750 bis 2520 ein. 

Zeile 1870 wird abgeändert in: 


1870 BSAVE „RAB- 
BIT.SCR“,&H3FFF,S (Diskette) 
1870 CALL BSAVE („RAB- 
BIT.SCR“,&H3FFF,S) (Quick Disk) 


Dieses Programm speichern Sie aufIhre 
Diskette oder Quick Disk unter dem 
Namen „RABBIT, UMW“ ab und las- 
sen es dann mit „RUN“ laufen. 

Es beginnt wie das normale Programm, 


‚nur daß der Bildschirm schwarz wird 


und Diskette oder Quick Disk anlaufen. 
Das ist alles, was vorerst passiert. Schal- 
ten Sie jetzt mit COLOR 13,4,4 und 
SCREEN 0,l wieder in den normalen 
Bildschirmmodus zurück. 

Auf der Diskette oder Quick Disk ıst 


RABBIT 


ic) 1985 bu Volker Besker 
steinhacher Str, 18 
5378 Oberursel’Ts.6 


jetzt eine Datei mit dem Namen „RAB- 








BIT.SCR“ gespeichert, die den komplet- 
ten, für das Spiel benötigten Wideoram, 
enthält. 

Löschen Sie jetzt alles, was noch im 
Computer ist und tippen Sie die Pro- 
grammzeilen 100 bis 1740 ein. Ändern 
Sie jetzt Programmzeile 1610 wie folgt 


ab: 

1610 BLOAD „RÄABEIT.SCR“,5 
(Diskette) 

I61O CALL BLOAD Er 

(„RABBIT.SCR", 5) (Quick Disk} 


Speichern Sie jetzt diesen Programmteil 
auf die gleiche Diskette oder Quick 
Disk, worauf’ sich die Datei „RAB- 
BIT.SCR" befindet, unter dem Namen 
„RABBIT.BAS“ ab. 

Wenn Sie jez das Programm „RAB- 
BIT,BAS“ starten, wird die Grafik nicht 
mehr jedesmal generiert, sondern direkt 
von der Diskeite oder Quick Disk in. den 
Videoram copiert, wodurch das Spiel 
praktisch sofort startet. 
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| = 
[} 2,169.,08,196.1:1939,8,64.1 I» is 
' 238 baTa 198,8.29,1.169,0,59,2,169,8,171,1.213,0,83,1,213.0,29.1.169,8,5#,2,169, ! % 23H 
| 8,171,1,213,0,09,1,213,9,29,1.254.0,128,2.226,0,.252,1,213,0,171,1,190,0,64,1,169 | li 
' ,8,58,2,169,0,196.1,168,8 | = ne | ° = 
' 248 baTa 64,1,160,0,29.1,142,0,58,2,142,0,171,1,127,0,83,1,142,0,29,1.213,B,55,2 ==; 
‚2413,0,171,1,198,0,93.1,169,0,29,1,160,0.58,2.160,8,196.1,226,0,64,1,226,0,29,1, =: 
ı 213,0,58,2,.213,0,171,1 | Ws =: 
ı 258 DATA 213,0,93,1,213.9,29,1,105,0.128,2,106,0,252,1,119,0,171,1,127,9,64,1,11 Ba = 
| 3,0,58,2,113,0,196,1,127,0,64,1,142,0,29,1,127,0,129,2,142,0,252,1,160,0,171,1,1 = 
Ä >7.0,54,1,142,8,58,2,142,8 | = | Irek 

268 bATA 4171 .,1,213,8,93,1,213.09,29,1,127,.0.128,2.127.0,252,1.142,8,171.1,160,0,6 PT, 


4,1,142,8,58,2,169.0,171,1,190.8,083,1,213,0,29,1,190,0,98,2,190,.0,196,1,192,0,54 
‚1,142,8,29;1,169,8,38,.2 f | A 

ı 278 DATA 169.08,171,1.16%,8,83.1,169,8,29,1.106,0,1208,2,106,0,272,1,113,8,171,1,1 
Ju, 27.,0.64,1,113.8.58.2.112,0,196..1.127,8,64,1,142,0,29,1,127,08,128,2,142,0,252,1.1 
59,8, 171,1,127,8,64,1 2 
238 TATA 142,8,58,2.142,0.171.1,213,8,83,1,213,9,29,1,127,8,128,2,127,9,252,1,19 


itialnn 
i BE Fr EIER 


we 
1-1 
a 
E es; 


U: 
[Ei 








FF WIIT— 
a F L 4 

ver r 
de ar he 


+ ti 
u 

„nz 

e & 










| 2,0.171.1,160,0,64,1,192,0,58,2,169,.8.171,1,190,0,.693,1,213,0,29,1,199,0,58.2,190 = 
7. ,8,196,1.190,9,64,1.169,8 | u 
©! 299 bAaTa 29,1,2193,0,59,2,213,0,171.1,213,0.83,1,213,8,29,1,0,8,0,0 Ir 
5 388 CLEAR 1208 : 
©. 4.9318 BEFLNT 6-L:DEFSTR A-C 5 
os ‘320 DIN 60C923,HPC4,5),HF(4).HZ(5) 
5.338 KEVOFF:SCREEN1.3,8:C0LOR1,1,.1:HIDTH32:0M=9:695UB1528 ; 
u‘ 348 ON INTERUAL=16 GOSUB S@0:RESTORE:SOUND 7,56:MS%4=-1:INTERVAL ON Si 
ei 358 FOR Iv=B TO 2:K=ANDC64): IF ATRIGCJV) THEN 378 = 

9.368 NEXT:60T0 350 Se 

l 


279 GOSUB T19:8M=-1:VDPC4)=5:S0UNd 8,8:50UND 9,90:THTERVAL OFF:FOR ieB TO ZBIPUT ar. 






spriTe [,69,0%,0,63:NEXT:YPP<1I=226 1 VDPCZI=6:LOCATE 11,.2:PRINTCE: I6=1:RESTORE 
er 
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408 
418 
420 
430 
440 


47a 
488 
438 
>98 
548 
>28 
538 
548 
so 


Te Ten ee 


ee 8 8 8 ®8B 829 8282 8 98 ® 


638 


ch 


bad 
668 


590 
595 
88 
18 
T28 


158 
778 
. Ta 
798 
380 
' 816 
828 


rs 


a ® 


‚ 838 
ı B4B 
58 
>: 
ara 
21-7: 
890 
EL:I: 
‚318 
ı 928 


Er 


® 


338 
948 
950 
3608 
978 
988 
398 


ee »2» 92 ® 


388 LOCATE 12,168:PRINT"LLLLLLLL*®: 
H:PA=-25:505UB 1978: HU=1988+298: L V:62=128: TIME=8:605SUB 1898 
390 PUT SPRITE 18,1128,1613,9,25:PUT SPRITE 11,(126.1745,6,21:PUT SPRITE 12,128 
‚1747,15,22:PUT SPRITE 13,(129,174),8,23:LR=1l: BERrZRN G605UB 1188: 


LR=INT{RHb<1B8>32+1.59 
Lb=IHTCRNP{58)2120+20) 
FOR LL=1 TO Lb 


IE IK 


IF MHi=88 ANb NW>=65 
20,56>,12,54:PuT SPAITEl,<128,72)3,8,35 
458 IF NW{=48 AND Ml>=25 THEN PUT SPRITE 8.128, 
B,32:PUT SPRITE2,1128,.128),8,33 
468 IF Huc=6 THEN INTERVAL OFF:SOUND 8,8:50UND 9,8:50UNb 18,8:PUT SPRITE B,(12B8, 
12085,12,48:PUT SPRITE1,<128,1369,8,49:PUT SPRITE2,(128,152),8,58:8DT0, 1449 


THEN 505UE 1158 


IF GZ2=8 THEN 13998 
NEXT:IF LR>1 ÖR MH<=108 THEN LR=1:60T0 #18 


GOTO 


20:1: 


IF INKEYSSCHRASC24I THEN MSK=NOT NS% 
IF NSS THEN SOUND 8,18:$0UNDb 9.9 ELSE SOUNb 8,8:50UN} 9,8:60T70 546 
REAb Mix, N2%4,M3%,M4%: IF Mike8 THEN RESTORE:GOTO 528 


SOUND 8,M1%:50UNb 1,12%:50UNb 2,13%:50UND 3,14% 


IF BK 


IF CIHsZ25ncIHr2> THEN 
A,184: VPOKE EHiB36,92:IH=2 
HOT 5&M THEM RETURN 
LRt>IV THEN ON LR 805UB 988, 998.19818 


LF 


LA 


IF 


THEN RETURN 


BOSUB 718,780,888 


Ba», 12,51: 


THEN LR=ei1:80=-1:PUT SPRITE14,(B,B), 


LV=1:L0CATE 8,1: PRINTUSING"#";LV:6K=d:GN=-1:60= 


INTERVAL ON 


8,63:PUT SPRITE 8,€1 


PUT SPRITEAi F (128 ä 194 H) F 


VPOKE BHiRZ2A,108:VPOKE &H1B36,95:IH=3 ELSE VPOKE &HIBZ 


STICK{JV) GOSUB 1838,1049,18498,1045,10398,1950,10850,1858 
HP>163 THEH HP=168 
HP{T2 THEN HPa=T2 


VPOKE &GH1B23,HP:VPOKE SEHIB2D,HP:VPOKE BHiB341,HP:VPOKE &H1B35,HP 
SZ=FIXt128-TIMErSB}: GBZeABSt6ZIRH EG Z 


IF 80 


ı 640 HH=NH-5:505U8 1888 


THEN RETURN 


IF W=1 THEN VPOKE &Hi1B3A,232 


IF Ik 


Heu+l: 
RETUAM 
HOT 


Ih= 
WPOKE 


VPOKE 
VPOKE 


THEN RETURN 
IF W>5 THEN 11088 


IM:ON IH+2 86010 728,758 
5H2014.247:VPOKE &H28153,119:VPOKE 


2818,119:VPOKE 5420619 ,119 
738 VPOKE 3H288A,148: 
' 748 VPOKE 5H2882,68:VPOKE L£H2893,284: RETURN 
‚ Tsa VPOKE &H2815,247:VPOKE 542814, 119: VPOKE 


NWPOKE G&H2BGBE,.294:VPOKE 


2518,119:VPOKE EH2819,119 


SH2BBE,148:VPOKE &H2980A,284:VPOKE 


6H2883,658:VPOKE GH2B82,284:RETURN 


IG=I8+1:IF 18332 THEN I8=1 
LOCATE #,8:PAINTCDLCIB) 


HR=HP 


3 


IH=NOT IM:ON IW+Z2 8070 828,958 


VPOKE 


VPOKE 
VPOKE 
VROKE 


VPOKE &HZ6BE,148:VROKE 


WRÜKE 


bH2814,119:VPOKE 54H2815,119:VROKE 


2018,247:VPOKE EH2819,119 


EHZBBA,14D:VROKE GH2BBE, 284:VPOKE 
5H2882,69:VPOKE £H2883, 2804: RETURN 
EH2919,247: M“POKE 542018, 119 

sH2BBA, 204:VPOKE 


5H2903,68:VPOKE &H2B82,2B4: RETURN 


1[5=18-1:IF 18€1 THEH 18=32 
LOCATE 8,8:PRINTCBCIB> 

HR=HP+3 

IH=N0T IW:ON IW+Z B80T0 928,950 


WPÜKE 


VPOKE 
VPOKE 
VPRÜKE 
VPOKE 
UPOKE 
T[U=IR: 
IN=TIR 


5H2814,119:VPOKE &H2015,119:VPOKE 


2818,119:VPOKE &H2819,119 


EH28B8A,148:VUPOKE SHZBBE,. 284 :VPOKE 
KH2BBZ2,68:VPOKE &H2083, 204: RETURN 
&H2817.247 V"AOKE 6H2816,119 
bHZBBE,14B8:VPOKE &H288A,284:VPOKE 
GH208083,6&0:VPOKE 6H2B82,284: RETURN 
LOCATE 8,9: PRINTCK:RETURN 


:LOCATE 8,9: PRINTER | Je 
10098 YPOKE &H2815,4119:VPOKE &H2814,119:VPOKE &H2816,119:VPOKE £H2017,119: RETURN 
© ;' 1818 IV=IR: 


LOCATE 8,9:PRIMTCL 


' 678 PUT SPRITE 14, i28+W2W3, HZCH)3,HFCHH> , HP{HH,W) 


sSH2016, 
SHZOBF, 
uH2BlE. 


GKH2O1B, 


SH2BiB, 


&H2BBF, 


EHZR4IR, 


KH2BIE 


119: 
284: 
118: 


2ed4: 


118: 


2B4: 


a4: 


‚e4T 


GHZOBF,204 


GH2010,204 


VPOKE 


“POKE 


“ROKE 


VPOKE 


VPOKE 


UPOKE 


VPOKE 


:MPOKE 


:NPOKE 


:VPOKE 


5H2817.119:VPOKE #H 
&H20810,9%2 
5H2817,119:UPOKE &H 


GHZBOR,92 


EH2017.119:VPOKE &H 


6H2610,92 


GHZGBF,92 


6H2817,119:VPOKE &H 


KH2B10,92 


KHZBBF,®2 


1. Su Anure SN=BTS, 119: VERREZ SuzIat, 113: PORE del ke En SE VROKE L6H2818,119: RETURN 
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HHHT 


Frai 
HH 


ir 
IrHif 
ZEIT 


Hard 
E 


j; 


a — = 
Fan 
Fi 


NERNTERHERTTPRESHER HRG RRRFSEEIFT 


H 
[1 


tep-- 


HEIKE 


’ 
di 


Hr 


En m en == — : ME EEE RE — U) — 


Ar = 2 m m mn un u = 


® | 1938 RETURN BD 
| 4848 HR=HR+6:RETURN = 
| 1954 HP=HP-6:RETURN | ia 
© | 1ase LOCATE 8,8:PRINTUSING"RnAERR";PH: RETURN ‚= 
' 4878 LOCATE 23,8: PRINTUSING"adaaRe";PA:RETURN | = 

_ + 1888 LOCATE 14,1:PRINTUSING"#ARM"; MM mu 
= 1998 LOCATE 23,1: PRINTUSING"@4R";62:RETURN ww 

' 4100 Wi=FIRCRNDERIEI+L. SI: WmL:MS=FIKCANDCHSIEIB-45) 75 == 

_ ' 1118 IV=ABSCVPEEKCHHABSII-VPEEK(EHAB29I:TF IVCi6 THEN-IFHHCA THEN IK=-1:0K=-1: | 
” ' MH=HL:RETURN Zn 

' 4129 IF HH=4 ANb 1IV>1S THEN HH=HL:RETURN ELSE IF HH=4 THEN SOUND 4,186:50UNb 5,8 

© ‘ :SDUNb 10,15:PA=pA+100:80SUB 1978: TIME=ABSCCTIME-25@)KCTIMEIZ2SA>):SOUND 18,8:UH= en 
" ) MI:RETURN Es 
 ' 4138 PA=PA+25:00SUB 1978 a u 
@ , 4148 WH=N1:RETURN we Bu 
' 414158 Ok=-1 | Su 

_ ) A160 IF SAN<UPEEKCHHLBIFI-VPEEK(AH1B2II)=1 THEN 1268 a 
© : 4178 FOR Li=t TO 4:50UND 4,472:S0UND 5,1:SOUND 1@,46-Li:FOR L2=@ T0 2 ms 

' A188 HP=HP+L Ze 

o ‘ 1198 IF HP>168 THEN HP=168 ss; 
” ) 4208 UPOKE #H1829,HP:VPOKE &H1B2D,HP:VPOKE &HLB31,HP:VPOKE 6H1B35,HP | = 

' 1210 FOR L3=5H1B28 TO &HiB34 STEP4:VRDKE L3,VPEEKLLSD+L2:NEXT:SOUND 18,@:NEXT u 

© | 1228 SOUNb 10,9:F0R L2=8 TO -2STERP-1 @ wu 
{2308 HP=HP+i en 

1 21248 IF HP>16B THEN HP=168 ı u 
© ;ı 4258 VPOKE 4H1B29,HP:VPOKE KHiB2D,HP:VPOKE #HiB31,HP:VPOKE &H1B35,HP ® 
1268 FOR L3=&H1B28 TO KHAB34 STEP4:VPOKE L3,VPEEKTLII+L2:NEXT L3,L2,L1 | Ber 

5 1278 GK=@:IK=8: RETURN eo 5 


1230 FOR Li=1 TO 4:SOUND 4,172:50UND 5,1:S50UND 18,16-L1:FOR L2=B TO 2 
ı 4298 HP=HP-1 
© . 13098 IF HP<72 THEN Hp=72 - 

‘ 4#41B VPOKE £H1B329.,HP:VPOKE &HILBZD.,HP:VPOKE &HIiB31.HP:VPOKE 6&H1535,HP 
1328. FOR L3=6H1B26 TO &HAB34 STEP4:VPOKE L3,VPEEKtLII+L2:NEKT:SOUND 10,8: NEKT 


=. 

-_ 

A, 
wu 
rn: 
IL 

m; 
Fi 
Ba 








© ; 41338 SOUND 18,8:FOR L2=8 TO -2STEP-4 ı'@ 
1348 HPu=HPp-i | 
z 1359 IF HP<T2 THEN HP=T2 = 
uf 1368 WVPOKE &HAB29,HP:VYPOKE &HiB2D,HP:VPOKE 6&H1B31,HP:VPOKE &H1B35,HP 2 
; 4378 FOR L3=6H1B28 TO &Hi1B34 STEP4:VPOKE L3,VPEEK{L3>+L2:NEKT L3,L2,L1 | 
© ' 1388 6K=8:1K=8: RETURN '® 
- 4 4398 INTERVAL OFF:FOR I=8 TO 18:$0UNb 1,9:NEXT:FOR I=B TO 2: Ba SPRITEI,£9.83,8, er 
| S3:NEXT:PUT SPRITE14,(9,93.8.63:L0CATE 12,16:PRINT" #6" :; “ u 
=, 1488 PLAY" k420u1253404059404503404409904060340400390400390400099046 ‚"ti2dulZodre Du, SZ. 
rerererererere" , "t120s9n2088805c 2d2eldceZadal”" a 
1 4418 IF PA>PH THEN PH=PA:BDSUB 1068 I 
@ ı 4420 IF PLAY<e) THEN 1428 6 5 
1439 6070 358 | SZ 
o | 1448 LY=LV+1:1F LV29 THEN LV=9 wo 
4459 LOCATEB.1:PRINTUSING"#"; LU Bm 
' 4468 PLAY "t18029n209890502.892.0600592,ec1", "ti189s9mn2BRB8o4e2, a40o5e2. aed.o4gel" 8 
© ; 1476 Pampa-25+10t072:603UB 1079 Oo 
‘ 41488 IF PLAYta) THEN 1498 | SE 
_ 5 41498 FOR I=8 TO 2:PUT SPRITEL,(8,0%,0,63:HEXT:RESTORE u 
WB 4500 Ok=a:GN=-1:60=0:NH=iHAA+200sLV:6Z=120:TIME=d:G0SUB 1880 ' = 
‚ 1518 6010 2398 Br 
u ' 1328 C6(1)="AAuABCDAAAsEFGAAHRBABCDÄRKAEFGAE" en 
" | 1538 FOR I=2 TO 32:C6C1)=MIDsCtCach-1),2, 31) +LERTECCGCI-1),1). HEXT == 
' 4549 Con" OO [al], Larcl,La*"1,0a*:1,Ca’1,Ca;1,189), la”. [98J, Lar)l].Ca ae 
®@ , "m Ba 
= 1558 Ka HPHKNEHKHRAKMPHLLIPNSMPNSHPASHPIMMNMNNNNHMNMEHLLLKANMMMMMMMNMMMM S 
1 4568 CAR="NPHxMPNKNPNXMPMZLS]"aabbbNPHXHPHNNNAMNHHNMHNNHKLLKNMNENMAEMMMANM" a. Bi 
© ; ısTa CL=*’MPH=NPlMbbbaann! kiINPN«NPN=NPAH«HPNMMNMMNNNAMNMNNILLHNNNMNMMNMMMMMN*® a. 
4580 bATA 12,6,4.8.79,98,119.138,158 | Een 
41598 HNe28:FOR [el TO 4:FOR K=-i1 TO 5:HPeL,KöI=HH:HH=HN+L:NEXT K,L:RESTORE 1588:F0 ia 
e R I=1 TO 4:READ HECIF:NEXT:FOR I=i TO S:READ HZELI:NEXT ee 
1608 VDPL2I=T:VDPCAI=S = 
on | is1a sosuB 1750 ss 
‚ 41520 PUT SPRITE 9,(48,8),13,13:PUT SPRITE 1,(86,32),12.14:PUT SPRITE 2,t112,223) Se 
' ,7,6:PUT SPRITE 3,1144,2239.7,7 Be - 
© | 1638 FOR I=48 TO 8d:FOR K=i TO SA:NEXT:VPOKE &HiBB1,I:VPOKE &H1B84.88-[:VPOKE &H = 
' 4B98,175+1:VPOKE &H4BAC,175+1:NEXT =; 
m ' 1540 VPOKE &HiBA2,16:VPOKE &H1BAS,2B:VPOKE &H1BAB,A:VPOKE UHLBBC,® Er 
” 4650 LS=48:FOR Ind TO 6:PUT SPRITE 1.<L5,489,10, IH11:L5=1L3+432: NEXT ' ken 
; 41668 LS=118:F0OR I=7 TO 9:PUT SPRITE 1,<L8,729,18, 1+11:L$eL5+32: NEXT ==] 
= ! 1678 PUT SPRITE 190,(69,78),9,25:PUT SPRITE 11,(68,1843,.6,21:PUT SPRITE 12,(68,18 EEE 
' 43,15,22:PUT SPRITE 13,169,104),8,23 | SER) 
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165%0 FOR 12192 TO 159 STER-1:FOR J=i1 TO 28:HEKT 

ıTe8 FÜR K=14 T0D AT:VPOKE EHLEAB+AtK,L:NEXT K.l 

1718 VPOKEL&HIBZA,100 

AT2a PUT SPRITE 18,<1437.,1369,9,411:PUT 3PRITE 19,<169,1365,9,.12 

1739 :LOcATE B.8:PRINTCEEI) 

17#@ RETURN 

1758 KEY OFF:COLOR 1.1,1:5CREENi1,3,9:4IDTH32:FOR IT=&H1C88 TO BHAFFF: VPOKE 1,32:N 
EXT:VDPR(2)=7 

Ts IhA=s0: lEe43:805UB 2258:[A=87:FOoR I=8 TO 2:PUT SPRITE 1,t1IA,883,8,1+8:1A=IA#+3 
2:MEKT: IA=dd: [E=223:005UR 2268 

1779 IRn=8:1E=135:805UB 25189: [A=n15B8:1E=287:8056UB 2520 

ıiT88 LOCATE B,8:PRINT" 0 DEE, 8 ar [:] z+,B !8# DB 5 8 


1798 FOR 1I=2 TO 7:LOCATE 8, T:PRINT“BAAAHHHDBAHBNDAHBDDBNIEHNIHIANEB" :NEXT:’32 ma 
I C4*3] 

1848 PESTORE 1899 

41818 FOR I=9 TO 23:PEADb A:LÖCATE 8, I: PRINTA+CHRSL3SBI+CHRFLIBI:NERT 

1828 VPOKE 5bH1888+767,77 

19838 FOR 11 TO 24:REAb S.K,L:LOCATE I,K:PAINTCHRFCLI:CHRSCL+L): NEXT 

1848 LOCATE 8,8:PRINTCBCH) 

1358 FOR 1=8 TO 25:READ J:VPOKESH2BAA8+1,J: NEXT 

1868 FOR 1=8 TO 2:PUT SPRITE 1,c8,08),9,63:HEXT 

1878 RETURN 

1288 END | 
1898 bATA HPNSHRHSHPNxMPHLLIPHXNPAXAPAS<HPM, HHHHMHMNHHNNNHAHILLKHMAMHAMHNHAHHMHMN, PNEM 
eMHGEMEHSHEHLLLLIENHENEMENEHEHE . HMHNNHAMHMNMMILLLLKNMAHMNNHHMHMNMHM 

1388 DATA HYMÖHUHGHUuMüHLLLLLLSOHYHOHY4HOHUN. HHNAMAHHNMAHMILLLLLLEHNMANAMNHAHMA ,uNaM 
„MaMuHaHLLLLLLLLIaNG MaMüMaMu ‚, NHMMMMAMMHNMILLLLLLLLENMHHAANHMMM | 
{919 DATA HRHTZHRHZMHRHLLLLLLLLLLIRHZNRNEHRN , MM ATM HTILLLLLLLLLLE N Hr Hr HAN 
MHHMMHLLLLLLLLLLLLIMMMMANSMH , AMHHNMMMMILLLLLLLLLLLLKANAMHMMMM 

4928 DATA MEHrMeHrHLLLLLLLLLLLLLL/r H#Hr Han, M4H4H MAMA ILLLLLLLLLLLLLLK SMS NH. HMMM 
MMAMHLLLLLLLLLLLLLLLLYIMMHHNH 

19308 DATA 9,3,174,21,3.166,14,5,164.19,5,172,12,6,170,18,6,152,13,7,.160,17,7,168 
1940 bATA 14.3,190,14,4,188,14,5.196 ,14,6,176,26,3,192,23,5,188,21,6.178,28,7,18 
F 1 

1952 DATA 4,3,206,7,3,196,9,6,202,;11,7,192,16,3, 198 , 16  Wrasd4iE 771977, 15, 6.280 
19608 DATA 23, 23, 60,60,241,241,241, 241,183, 202.148, 202, 202,202,140,92,92,119.0,8, 
247,247,247,247,247,247 

1978 DATA B101A30307B7aFRF .1FIFFEIETCTCFAFB , FLFAFBFBFFFFEFFF ,FFTETFSFIFIFIFOE, FO 
FOFOFBFCFGFEFE,FFDFCFOFBTOTR303,BTAFLFIFTETBIFLF ,SFOTBOGBrFFFFFEFFF 

1988 DATA FEFFFFFFEOBBAFFFF ,FFFFOBBOFFFFFEFF ,FFEFFFFFOBBOBOCH, ERFOTETBFLEICTEF, 80 
CBEBFEFITFIFIF ,IFIFTFFIFOERCHBA. LFIETCFEFDERCHEB, BOCHEBFOFBTCIEIF 

1995 DATA C0cC065065038301819, 0C0C068603838101 , 0303928208040080, 00306 068CHCH555, el 
aiBi81818iB8181 , 218128101980 09808, FAFABCBCACIHArFart , 8693830303067C78 

2008 bATA 7F4a4B7TEdAdATEng, 00807 24B4AT 24240, DS243EASASA4A4OB, BBBOBBZ2A3FB2B3BAR, FF 
HOAaLTSIETATOR  BaRHABBZABAnzEARR, FFORBAS 767444700, 20 TBZEABAERZAERR 

2818 bAaTAa FABaadFABBaArAnd, AdadalLalLdLe1addd, 884 181BB99393980., 0HBAP5pALapı100B08,58 
2BBBZARrCHA2AGG, BODBEE4EBBEEABEB, BODHABA222A1C1400,BOBBAAEAAAEEZBEBO 

2820 baTA Bo80aaABBrA2A300. 004BER4AE dd, added, aan, 
4299A1A199423C ,0000000809008808, 1111111119191819,, 200086980 8080888 

2038 bATA ET2Z42427E42424E7 , 0RO80H0882000988, 3E9B9B9C3282829C , BRBAHBEABBHE9B0B, ch 
0686030301818, 0C0C065065029#39101 , 08383860608C0C1818,303865B&0C0C28888 

2040 DATA 81010816101010101.,9101018101010191, FORFSBCACcHC9BFärc, 868383838386 FCFB,FE 
FFEC3CLCLCICIFF ,FECCCCCECEEICIHTL , 0860896860978 FH, BBHTDFECBCBEFFFF 

2058 DATA BE0E0EREiteet co Tescscäcächrrrrf,0303030303838363,E3636 366363 FFFF,BB 
aaaaaLaiagenEil, FLI1IL3F3LILILFFFF BCBGOc9FBEBCHCHET ,BCBCBCacHcaBcFerFB 

2868 DATA CACcBcacacd8cal3c3,C3cac3c3tc3cäarFFTc, Bcocacdcachtachas, BcacbchBcacdcFerB,080 
BanBaaaaaaı3FTF ‚BERABIFTFERSOTFIF ‚B5BE ee, chheettelhtTthd 

2878 BATA BCBCacacacacacal.aFarecachtacHatlat, aBaBaadB1a3dhach, 88acl53hlElel1d,u3 
OTATBFEFR78307,BFiFiFLFIEICBERF. CHEBEBFOFDERCHER ,FOFOFAFBTB3H70C0 

2088 DATA DO0000008B008088 090090800910 30100 , AHdadadadeeeeeee, aaa, ee 
EETITTTETETETIELTETTEEEISTEETFEETTTTITETTITITIISBEITETEECTETTTT 83 

2899 bATA ABBadBoanaeeaeed, aaa, 86a, pearl, de 
PLETELTETEIEITIERETFLELSETERFEETTSETSETSTEETEECTEITBETCTTTTSESR EEE) 

21a bATA BOBBBBBAHRaHHbnB. 02 3H3nFR1E1EHR  BeAdabeaanhndaded  ARBARBahhelFi1Bı11,#8 
EITTERTPERERFBERPEETETRETISPETSRETERETETIEECCECTEEEEETCREER EEE) 

zi18 DATA BOAHBBBRHaRahıLdl, dad, Baader, ne 
EESFERETEREERETEETTERTISTTESCROTSEEETETCETEEURTEBTTSET-EEESGTET2) 

2126 DATA BdBBanaresargE.dbFa7aspıLn3anaddn, BaandaLareEthrFaßsa, TEFBEB4HEHEBEBRG, #0 
OC1L2160DI1E3F3F,3b3E3FIFiFBELCAA.,B0182434PB3CFEFE. DEIEFEFEFCASICRRA 

21308 bATH 1C2P2EZEABSETFTF, TBTCTFIFSFiE3CETE ,IC2Z3RSAbC3EFFFF,EFiAFFFFEFE3CIEIF, 68 
VEETPEITEEDEPERETFEESETEETTTITCRETPEETEETETECTSEETEBELLSTEECETEPEITTIT 

2148 DATA Ad9BHHasBHAaLd3aT, ETRGAHHAABARABAE., BAABEAHARDREach, CHRddBahndeeheaee, 0 
BEHDBLBIBSAFAF.Bb1FIFOHBHHPBBER., BAaBBBhachEArFahn, bErEFSEABBJaRn0n 

2158 PATA BaB307gEBDIDIEIF, ‚3F3E3ETETFOBAGHG, GUCHEBFOF@BEDSHS, BCFCECDEFEBBBBRA, 03 
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©, aTapriBıB383037.,T7BTB7ESPRIEDBEFF,CBEOFEOFBDBECHCHC. SEBEFSFEADBETDFFF m we 
ETETITETETTEITLBETEIIITRGESTECEEREEELLELELTESTIEERIELEESERELTEREEIZEEN | Mani A 

TEETEEEEETCERCTEELFEELKETETTOETTTETTETTERTERSCETERIDEBSEIDENT Hat 

© | zır7a DATA MOBABERRBERHAGEE,DanaeF3aL1FaARRAKH Aunannannanana3d BBESFBFOERBERnBn,DE vr 

| | BBsananaRnAane, aaB1nTLBTFaZaBee, anaenanaanaaanl4.B2F4FSFEFEZBABBB TE 

@ | 2:89 bara InRHRGBBRRARARHR  BHBAAF3EFFA2BEHB, BA0AAHaB14221181,T9FDFEFCFB256BAB, BB 8 

BoBBRBOLBLBLBL., HBORAPOHHIARHAEA GH, BORKBaBenH han Bahr en 

| 1598 DATR BReBHen1A303H3B3  HLeLHBHARdanaEEB. BROAAeBPanBASASn Annanabhuaeeheehd, 5 (in 

B BaaaasHTaTaTaT , B3a3n3n1d1AHREEd  AAhREHadaeneaeet, Baanauhaehaedehe @ Im 

I HH bAHTh BRASTTÄLAEHTALAK., BIALE2HIULHLAARE  HBBACacecalacach, BaBBBasnhunaaaand, 95 we 

Bu N BTAFALBERTELHE., 8707020192930101., BOCHEBEBEBCACOCH, COCHBABB5H5 hd / ddr = 
© ı 2218 baTa BnBan03041229554., 4824122935430 101, 20B9H4E502040383A.52244894AACdEB80, FF ae | 
| PMEFEFEFFFFFFTE.TFTFTFAFAF3F3R 1 .FCFEFFEFFEFFFFFE,FEFEFEFCFÖFCFEFB | u | 
| 2228 batTa 1FIFAFOFOFOFBFAT.0707870393838101,FSFSFSFBFÖFSAFGEB, EHEHEBCHGBCHBDER, BE ie 
©: AaBanaR0BEAA0B.0824120905R301A1,000000HAEHREEAG, 1A244S9EAACASESE an ı 
1 2280 Data SFAFSFSFHFIFAR LE ,AFLFLFOFOFOFaFaT,FOFSFCFECFCFOFCFB, FEFSFBFOFBFAFBEN, AT | 
® | ATATa3n3H3n301, BLEABBAHBBBERHER ‚, EBEBEACICECACHER, BAAARBBAnADBRBRD IE 
2245 IaTı BeHaKHHDHRRAAAAR, PAHBaHBARABAd2uL, HEBBBHBRBHEEAAHG, BanBBOHe 2 H4DAnBd, 53 a eu 
ı  BTOFRFOFATaTaT.8767838383830101.80CHEBEGEBCECECH, COCESBEASRSHHEND Ä FR | 

© ı 2258 RESTORE 1970 > 
| \ 2260 FOR ImIA TO IE:READ C#:FOR Ku TO T:VPOKE SFI+K+CH3SBB ,VALC"GHO"+NIDFÜCH, 2# | s% | 
| K+il.233:NEXT K,TI:RETURN E 
@ ; 2278 REM CHARAKTER Eu 5 
| 2288 dATn HanaadaBaaaanden, BR3RSEA4A453100A,BBBDASBRESESEDAB, BBEFZBEFZ121EFAB, BB | | 
@' 222241 414060800, BBR4GAF4I4IAF GBR, BRSBBGAFCFASAFBR,, B003625362424305 a Wu | 
| 2230 Data O0904B9ESESOIERA,BAB4B4F53SESFSOR, BOBABBTATBA27AGR anabeaandaahenn, 36 eg Ser | 
‘ 4444443817010 .302824242820E8C8, HonnnnHnBeaeaand.10543BEE385410H% i | 

®@ , 2386 bata 1018107C10101210 ,BE08KB3B1EBCHBAS ,Adıdapdsn4nnnänn, 10101 BFR10101B18, 10 m 

‘ AB1H1F16101818.161O1OFF1B1A101P, 10LOLBLALBL1A1E19 , OOBBBEFFEBHHBA00 | Bi 

' 2319 bATa BBaBALFLFLELAIN, PahesB3B1EACHBaB  A4i4aDash4aaaaen, 10 B1aFanbalanne, Bl 6 

© , 42241818244281,0102040810204080, BAAB281AR0048201, BB1BLOFFiD1BRaBAR -@® Bee) 

' 23920 bATA IT TRREETEETRESEIEFEFEFEFELTSTT- BEL ELLE TEE alle) | Mi 

u nnah7A2DEH?A4CH. BorR2H22222 722080  H606806554545460,BHBAOAF2FORAF2BE ea 

ı®ı 2338 DATA BEI49HISFISSTERL,OB1ALADCH4DASACH, 6B5BEBB33I82F AB, HUABBBABABL273BR, 00 'w u 

|  Sasaaaaarahann. HaFREAFBAaAKAFERR AuandnbEi212DERH  Au0BAHAEGEBSBERE | FH 

= | 2348 DATA BR1B2A2424241B0E , ÜHOB1F03BH0B1CHR, 0R132404081A3CHH. 0818240804 241850, 00 as 

“N BB2Rraichaneen, aalza3gp4u4Iene Gp1B24352424180B,093CH44818191808 f 

23°8 DATA 0B18241224241000,001824241C041880, BOF989898939F3AB, BOB4BE242424E408, 15 
© | Ausarase3a1Lsab. dunarsnaraanaaae, Casa3nıL33n6aland, 7688881529802000 am 
2363 bnTa GBOGBABRHLIBTFEF ,40SBTAFBFFEFFFFF ,GBBACHEBFTFEFFFF,BB1B1B3CTEFFFFFF. G6 | I 

Gu08287AFBFEFF , BOBHBHB3AT3FTFFF,OBLCIETFFFFFFFFF 80989808 58DCFEFF 55 

= 3370 DATA FEFFFEFEFCFGFAFB, FOFOEBERCOCHSBAR, FFFFIFTFIFSFLFAF,BFEFOETOTB3930181,08 ı 0 

| Ha, ErFFFFFFEFFFFFFF,88C9C8A898909889, TABSSBSAABBBTARB | Be 

m ' 2388 bATA BBRBRRHETRRRRR, EARLLI1ILCHHEN , ABABLCZATTZALCHH, TESESETAASBETABA, FB ie 

m 5202020202000. 9888888893337000, Beasaesarnsnznnd, BSBSschBhaDsnBan EZ} 

' 3330 bata EEFEFSFOEHCHAAEG ,ULOTOFLFIFTEFFFF,EFFFEFFFFFFEFOCB,FFFFEFFECBOBOBBA, FF | es}, 

u, FEFSaBBARBASHF .FFFAGBBBHLAFFFFF,FFOBBBLFFFFFFFFF,FFEBSBSFFFFFEFEF 25 

ı 2400 bathk DBaBBRRARRERBARH. FFORBBFFFFFFFFFF.FFEBFFFFFFFFFFFF , 89008000026 a92 09, 80 | = 

BE TTTTELEEITETTTICHTELETTTEELTELIEELITITTERTITIIITREILELDELZERIIE = 

© | 2419 bala FFTFIRBFOTASHLOL, RREOFBFSECFERFFFEF,FFEFFFFFFFTFBF@S,FFFFFFTFOSBBBBBB, FF “ u 

|  FFiF@BBBBACHaFR,FFOFABBBBAFCEFFE, FFOBBBFAFFFFFFFF . BERBnBBanadaBane nur 

I | 2420 dara BaanauuBL4uEHUnHh, BBaBBBLCIELCHBBB. LESCHRETETSASCIB, ABADTESBFBOEFRBG, 40 u 

48FA40494830B8, BHHHIKIG9RFA6END,. 0000569899502000 , HOBBBBABHBABSERB u 

ı 2438 bATa GBBsRAnAHaRARarg  BaARAALli4ICHenE  HABBI1C2ATT2A1CH8,1828284920281808, 28 Ban 

ww 9290029202008, C02020192920CH0d , dOABLINHEHHHAAnn  Hunazasarsaadene aus 

2448 DATa BAOBRBBSLAABHEAR, H00EAB1CIE1CEHUB, LBICHHETETSASCIE, 20567809785878008, 58 m) 


Er BOTBOSTSaATEaEN ,2010700373887008,2000790879897988.0HT78B0B038781860 Mn 
© | 2458 barn AnHaneALa21aannnR.duRABABREHRRBBRR, 5500020707020008 , HAAHSDEDEO4BARAR, BB u Bu 











| G6BESTINOFOHAB, BBSBTBECBCF@2009,163BTETTDDTTIbEA,6EDCTEEEBBEERS00 | m 
1 2468 IATA AaBaRBeLALaBKAHA, AanaausasBaBAuen, HanauzuTaTazenae, BnaB4nEDER4BRBeD. 2% u 
© 1 360E3T31EFO498,BA6ATBECHBCBBR 82068 ,163B7ETTDh771D89, 6EDCTEEEBBEEB2RE 0 
2478 DATA BRAnBBBLALAHAERE ‚BERADRRESERAHAHE, AnnAA20T9702RaER, anan4BERBEA4BHURG. 28 | hir 
© | 96BEST3DOFG408,B06ATBECBCFG2B00,163BTETTDD7TLDAB, SBDCTEEERBEEBBNO u 
"2488 DATA AOBDABBLALLAHARR  BERuaasnanARdaaB. BBRaH2ETa7B20A00,Buan4dEBEn4aBABR., 20 u 
. !  060E373D0F0400,B06878ECBCFA2000.163BTE7TDHTTANOO, SBDCTEEEBBEEBSAN | spa 
os ! 2430 DATA BBAREBBLALAHHANA,AAnnAHHABEEHAARR, HRRAA20707020000, BAdA4GEDEB4AOHBR, BO e=5 
' 06GE37300F0408, BOGOTGECBCFA2060,163BTETTDDTTIDER, SaDLTEEEBBEEBERO ur 
e 2509 DATA BaBOBABLELHAHAAG. HauagesBHuRHnduh, Haaaa2aTaTn20006  aaaa4gEnEh+ABBRe, 08 De Beh 
V ı 60E373D0F0400,BB6ATBECBCFO2E08,163B7ETTDDTTADOG, GODCTEEEBBEEBERN ‚# 
@ | 2520 FOR i=lA TO IE:RERb C#:FOR K=a TO T:UPOKE BrI+KrbH2808, VALÜ"CHRB"+MIBSCCH, 2% a 
| K+1,235:NEXT K,1:RETURN j E 
E = 5 _ un 
6 Und nun viel Spaß mit Rudi, dem H ‚An die Möhre“... ‘e 
i - - — — i m, 
BB 2:21: 202 1 Sr 5 02: 202370- basteln SET IRRE 
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„Ent chul 
- Vielen Dank, liebe Leute, daß Ihr so 
- zahlreich bei unserer Aktion „Feh- 
lerhaftes Listing“ mitgemacht habt. 
Die HOMECOMPUTER-Redak- 
tion weiß eben, daß man es mit auf- 
merksamen Lesern zu tun hat! Doch 
in der vergangenen HOMECOM- 
PUTER-Ausgabe hat es Euch der 
Tehlerfeufel .... Verzeihung, Fehler- 
teufel, natürlich leicht gemacht. 
Aus technischen Gründen hatten 
sich einige kleine „Dreckfuhler“ 
eingeschlichen. Und: Durch ein 
peinliches Versehen wurde beim 
 MSX-Programm „SOLARIS“ das 
Restprogramm nicht publiziert. Wir 
bitten alle unsere Freunde und Le- 
ser, uns diesen „laux pas“ zu ent- 
schuldigen, Irren ist bekanntlich 
menschlich, und Menschen sind wir 
nun einmal, wir, das Team des HO- 
MECOMPUTER! 

Die Gewinner unserer Aktion, die 





sich ihre 100 „Steine“ redlich ver- 


dient haben, sind auf der 3 = 
M.K. 





1g Ist nu 


hatten sich 


[} nu we 6 
eingeschlichen! 


fäter „vom Dienst“. 
Gratulation, Sie haben 
den Fi ehlerteufeln das 
Handwerk gelegt! 


ame hi 


.. das sind sie, die Übel- 














Zeichen-Designer 


Schneider CPC 464 


Das Programm - „Zeichen-Designer“ 
wurde geschrieben, um die komplizierte 
und zeitraubende Arbeit des Ersiellens 
von neuen Zeichen bzw, Zeichensätzen 
am Schneider CPC 464 zu erleichtern. 
Hervorstechende Merkmale dieses Pro- 
grammes sind einfache, dialogorientier- 
te Bedienung, schnelle Arbeitsweise und 
einfache Weiterverarbeitung der geän- 
derten Zeichen. 

Ein weiterer Vorzug dieses Programmes 
besteht darin, daß die auf’ Band abge- 
speicherten Zeichensätze einfach mit 
„lerge* in andere Programme einge- 
bunden werden können. Hierbei sollte 
darauf geachtet werden, daß das Pro- 
gramm, in welches der Zeichensatz ein- 
gegliedert werden soll, keine Zeilennum- 
mern aufweist, die höher sind als 64999. 
Der neue Zeichensatz belegt nach dem 
Aufladen mit „Merge* die Zeilennum- 
mern ab 65000, An entsprechender Stel- 
le im Grundprogramm kann dann der 





neue Zeichensatz einfach mit „Gosub 
6500“ aktiviert werden. Der Zueriflauf 
dıe neuen Zeichen geschieht wie im nor- 
malen Zeichensatz, entweder auf Ta- 
stendruck oder über „Chr 5“. 

Zur Reaktivierung des normalen Zei- 
chensatzes genügt es, an ents Be nder 
Stelle ım Programm den Befehl „Sym- 
hol after 256“ einzugeben. 

Obwohl das Programm größtenteils dıa- 
logorientiert arbeiten, werden noch eini- 
ge Erläuterungen zum Programmablauf 
gegeben: 

Nach dem Laden erfolgt der Programm- 
start mit „Run“. 

Dadurch erhalten Sie den Begrüßungs- 
bildschirm. Auf erneuten Tastendruck 
(es spielt keine Rolle, welche Taste Sie 
drücken) erhalten Sie ein stehendes Bild 
mit dem Öriginalzeichensatz. Dieses 
Bild verschwindet nach ca. 15-20 Se- 
kunden und Sie gelangen in das Haupt- 
menue, 


Hier können Sie nun auf Tastendruck 


verschiedene Funktionen anwählen: 


Taste 1 = Zeichensatz editieren 

Sie bekommen das Arbeitsblatt. Nun 
können Sie den Originalzeichensatz 
oder einen zuvor mit „2 = Zeichensatz 
laden“ geladenen Zeichensatz  verän- 
dern. 


Taste 2 = Zeichensatz laden 

Mit dieser Funktion können Sie bereits 
geänderte Zeichensätze von Band in den 
Rechner laden und erneut verändern. 
Die Abfragen erfolgen rechnergesieuert 
am Bildschirm. Sollten Sıe den Namen 
des zu ladenden Zeichensatzes nicht 
mehr wissen, so drücken Sie einfach 
„Enter“, 

Nach. Beendigung des: Ladevorgänges 
sind Sie’ automatisch wieder im Haupt- 
menue. 


Taste 3 = Zeichensatz speichern 

Auf Tastendruck wırd der von Ihnen 
geänderie Zeichensatz auf Band abge- 
speichert. 

Alle notwendigen Parameter werden 
vom Rechner über Bildschirm abge- 
fragt. 

Nach Beendigung des Speichervorgan- 


Dieses Programm erspart Ihnen Frust und Mühe 
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ges sind Sie automatisch im Haupt- 
Menue, 


Taste d = Programm beenden 

Durch Druck auf Taste 4 wird das Pro- 
gramm beendet. Vorher erfolgt noch- 
mals eine Abfrage zur Bestätigung des 
Programmabbruches. 

Alle noch nicht gespeicherten Zeichen- 
sätze werden gelöscht, das Programm 
wird gelöscht, 


Arbeitsblatt: 

Nachdem Sie mittels „Taste | = Zei- 
chensatz editieren“ in das Ärbeitsblatt 
gelangt sind, können Sie nun einzelne 
Zeichen editieren. | 

Auf: der rechten Seite des Bildschirmes 
sehen Sie die Auflistung aller möglichen 
Funktionen. Links oben eine Matrix aus 
&x8 Zeichen mit einem blinkenden 
Cursor. Unten links befindet sich eın 
rotes Informationsfenster. In diesem 
Fenster können Sie jederzeit sehen, was 
der Rechner gerade macht, 

Die Funktionen werden über entspre- 
chenden Tastendruck angesteuert. 


L = Zeichen laden | 
Sie können durch Angabe des ASCI- 





@ | 


Codes ein bestimmtes Zeichen aufrufen, 
um es zu verändern. Die Abfrage der 
Parameter erfolet ım roten Info-Fenster 
links unten, Um ein Zeichen zu verän- 
dern, muß es zuvor mit „L“ in die große 
Matrix geladen werden. Danach können 
einzelne Punkte der Matrix mit den 
Cursortasten angesteuert werden. Um 
einen Punkt ein/auszuschalten, wird der 
blinkende Cursor darübergebracht und 
dann die „Copy“-Taste gedrückt. Rechts 
neben der großen Matrix wird das Zei- 
chen noch einmal zur laufenden Kon- 
trolle in Originalgröße abgebildet. 


A = Zeichen ablegen 

Mit dieser Funktion können Sie bestim- 
men, wo ein neu angelegtes Zeichen ab- 
gelegt werden soll. Im roten Info-Fen- 
ster werden Sie nach dem ASCI-Code 
gefragt, welchen Ihr neues Zeichen ın 
Zukunft haben soll. Nach nochmaliger 
Bestätigung wird das alte, auf diesem 
ASCIH-Code liegende Zeichen, mit dem 
neuen Zeichen überschrieben. 


R = Zeichen rotieren 

Das gerade bearbeitete Zeichen wird auf 
Tastendruck um 9% im Uhrzeigersinn 
rotiert. 


HHHHHHHHHIHHHHIHHTHHRERRRHR HI TERSHHERERSHHHHHHHHIHHHHHIHHIHHHHH 


5 = Zeichen spiegeln 
Das angezeigte Zeichen wird über die 
vertikale Ächse gespiegelt. 


I= Zeichen imverieren | 
Das angezeigte Zeichen wird ınvertiert. 


M = Zurück zum Hauptmenue 

Mit dieser Funktion gelangen Sie zurück 
ins Hauptmenue; z. B. um die geänder- 
ten Zeichen auf Band zu speichern oder 
das Programm zu beenden 


Mit dem Programm „Zeichen — Desi- 
gner“ haben Sie eine komfortable Hilfe 
bei der Erzeugung ihrer eigenen Zei- 
chen, Mit etwas Übung werden Sie sehr 
schnell in der Lage sein, in kürzester 
Zeit eigene Zeichen und Symbole zu ent- 
werfen und zu speichern. Man empfiehlt 
Ihnen, sich Aufzeichnungen darüber zu 
machen, welche ASCH-Codes Sie mit 
neuen Zeichen belegt haben, um sich 
unnötire Sucherei zu ersparen. 


4X 


Und nun viel Spaß mit dem „Zeichen — 
Designer“! 








110 REM # = | 
ı 120 REM # r ’E :E EHE; N = DE 87 28 NER wre 
& i 130 REM # ZEBESSTTESEIZIZS Zen met ze so ergo mmezIgE TEN ZEN # Ei 
1140 REM # Sr 
‚ 150 REM # Copyright: Andreas Barufe #0 
® « 160 REN * Salinenstrasse 30 | 
| ; 170 REM « * 
@ | 180 REM # 350 Bad Nauheim ı . ® 
| ‚- 190 REM * # 
' 00 REM rss 
| Er -10 REM ee Teer Er Dr 5 7 5 25 IS EEE TE ES 0 5 202 2 2 20200 0 2 202 2 2 2 2 2 202 2 2 2 2 2 2 2 2 2 2 2 00 2 2 2 2 2 2 2 22 20. L 43 
1220 REM BEGRUESSUNGESBILDSCHIRM | 
220 REM ea: >> 
© ı 240 CLEAR:MODE 1:INK 0,1: INK 1,24:BORDER 5:PEN. 1:PAPER 0:5YMBOL AFTER 255 ir | 
‚ 250 LOCATE 2,5:FRINT CHR$ (135) +STRING$ (36 ,CHR$ (131) ) +CHR$ (139) : 
®; 250 FRINT" "+CHRS (133) +" ZELCHEN-DESTIBGBGNER "+CHRf(138}  @ 
‚ 270 LOCATE 2,7:PRINT CHR#(141)+STRINGS (35 ,„CHR# (140) ) +CHR# 142) ' 
' 280 LOCATE 3,i1:PRINT" Copyright by: Andreas Barufe" | E 
& , 2970 LOCATE 18,12: PRINT"Salinenstr. 30" | vi 
| >00 LOCATE 18,13: PRINT"53550 Bad Nauheim" 
u 1. 310 LOCATE 3,19: PRINT"Start: "5:3 INK 2,24,5:SPEED INK 20,20:PEN 2 '® 
© | 320 LOCATE 10,19:FRINT"irgendeine Taste druecken":PEN 1 Te: 
ı 550 CALL &BBiB 
ia! 340 REM | ® 
ie ' 350 REM PEREIEOEEREETERTER TUE EL. N 0000 00 2 m u a un 2 2 0 u u 2 DZ Sa a a 2 0 2 2 0 ud 2 2 2 2 A 2 2 2 2 0.0 2 
' 3&0 REM Erzeugung der Variablen "code" und einlesen des ODriginalzeichensätzes Ber 
> ' 370 REM RRSHBH 5 
"+ 390 MODE 2:LOCATE 10,10:DIM codet224,B): INK O,1:INK 1,24:PEN 1:PAPER O:BORDER &: ' 
_ I PRINTBitte warten Sie einen IF 
wi im 1 
. Moment 
390 LOCATE 1,1:FOR a=32 TO 255:PRINT CHR$(a);5ıNEXT a | 
= ' 400 FOR a=1 TO 224:FOR b=0 TO 7: codeta,b)= PEEK{a+49151+b*2048) :NEXT b,a | 
"410 REM | 1 
' 420 REM Rs - 
© ; 4350 REM Farbdefinition und Definition der Variablen Work# u. Hilf# \ 
' 440 REM Erzeugung. der Symbole Ba 
a el PIE, Bee Eee RT ee en Deep ne rei pe IE TREE == ei Se 
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450 REM Kaas 
| x 450 GOSUB 2530 I 
| 470 DIM work#(7), hilf#(7):FOR a=0 TO 7zwork#ia)="00000000":NEAT a 

E 480 INK 0,24: INK 1,4: INK 2,1: INK 3,24,5: SPEED INK 50,25 


' 490 REM 
I soo REH TE TE U TE ET IE RETTET TER ETER FT IE EEE ZZ 0 SEE 0 0 2 2 2 0 u 0 0 od 0 u 0 0 Eu 2 0 2 2 2 2 2 27 
510 REM HAUPTMENUE 


| 570 REN See 
m | 530 MODE 1: PAPER 2:PEN O:BORDER 4:CL5 
| 340 LOCATE 2,3:PRINT”H A LU r T M E N U E" 
5350 LOCATE 2,4:PRINT STRINGFLS7,"=") m 
sä0 LOCATE 2,8: PRINT" = = Zeichensatz editieren" b 
570 LOCATE 2,12: PRINT" = Zeichensatz laden "+CHR$ (242) :LOCATE 32,11: PRINT 
Eee ea LOCATE 32,12: PRINT CH 
REI1LFOI+CHRF LFI +CHRFLLFZI 
580 LOCATE 2,15:PRINT" 3 = Zeichensatz speichern "+CHR$(245):LOCATE 32,15:FPRINT | | 3 
EHR# (187) +CHRE (188) +CHAFL1BFI :LOCATE 32,158: PRINT CH - 
'  RE(1FO) +CHREILFIIHEHR$ (192) 
570 LOCATE 2,20:FRINT" 4 = Programm beenden" 
&00 LOCATE 2,24:PEN 3:PRINT"Bitte waehlen Sier "7:PEN O:PRINT"Taste 1,2,3 oder 4 


; 510 a$=INKEY$: IF a$="" THEN 510 
ı 820 IF AScia#)<47 OR AScta# >52 THEN 510 
u aetliatf): IF a=0 THEN 510 ELSE ON a GOTO 710,2480,2110,540 
540 ELS:LOCATE 5,10:PRINT"Wollen Sie das Programm wirklich ":LOCATE 5,11:PRINT"b 
eenden ?" 
550 LOCATE 5,13:PRINT"Bei Programmende loescht sich":LOCATE 5,14:PRINT"das Progr a 
amm selbst und alle":LOCATE 5,15:PRINT"noch nicht ab 
' gespeicherten": LOCAÄTE 5,15:FRINT"Zeichen gehen verloren !!" 
‚ #60 PEN 3:L0OCATE 5,17:PRINT"Bitte waehlen Sie: J/N": PEN OÖ 
' 5/0 a$=INkKEY#: IF at="" THEN 570 
ar GOTD 530 
ı 700 REM 
‚ 710 REM RBB HHHHHHHSBHSSHHHHSSHHBSIHHISHHIHHHIIHISHSHHHHR EN 
| _ 4 720 REM RR ENDE Den Tr 
5.750 REM SHHHHRRRHRRR HH HHHRHHHHRHHHBHHHHHHHEIRHEIHIHHSIHIHHHHIIHIIHN IH HN „ge 
' 740 MODE 1::PAPER 2:PEN O:CLS:BORDER 9 | Lan 
' 750 LOCATE 1,1:PRINT CHRS (150) +STRING$(38 ,CHRF (154) I +CHRE (156) Eu: 
7&0 LOCATE 1,2:PRINT CHR$(149) +" ZEICHEN - DESIGNER "+CHR&(149 | 





I 
" ı 770 LOCATE 1,3:PRINT CHR$(147)+STRINGS (38 ,CHR£ (154) )+CHR$ 153) | 
| 780 WINDOW #1,2,10,6,14:WINDOW #2,1,22,17,2S:PAPER #1,2:CLS #1:PAPER #2 ‚iscLs #2 Be 1 
= ' 790 LOCATE 24 S:PRINT"L = Zeichen "+CHRE1&1)4CHRS (LE2I+CHRECISSIHCHRELIASIACHRE OD oo 
‚ 186) :LOCATE 24,&:PRINT" laden "+CHR$C163) +CHRE | ai 
' (164) +CHR$ (32) +CHRE (167) 4CHR$ (148) a ii 
800 LOCATE 24,8:PRINT"A = Zeichen "+CHR$ (161) +CHR$ CLS2I+CHRELISBIHCHRELIASIHCHR | oo 
| ' #185) :L0OCATE 24,9: PRINT" ablegen "+CHR$(153) +CHRE$ | 


“am 
mi 


(164) +CHR$ (32) +CHRS$ (167) HCHRS$ (140) Du 
= 810 LOCATE 24,11:PRINT"R = Zeichen "+CHR$ (169) +CHRE (170) +CHREC1BSI+CHRELITEIHEHR oo 
+ #1174):LOCATE 24,12:PRINT" rotieren"+CHR$(171)+CH u 
Oo , R#i172)+CHR# 1150) +CHR& (175) +CHR#$ (175) aa 
| ı 820 LOCATE 24,14:PRINT"S = Zeichen "+ECHR# 159) +CHR# (170) +CHRE& (185) +CHR# (177) +CHR 
#470: LOCATE 24,15: PRINT" spiegeln"+CHR#(171)+CH tu 
® | RS(172) +CHR$ (160) +CHRE (179) +CHR$ (180) a 
‚, 830 LOCATE 24,17:PRINT"I = Zeichen "+CHR$ (159) +CHR$ (170) +CHRE (185) +CHRF 181) +CHR bo? 
#(182):LOCATE 24,18: PRINT" invert. "+CHR$(171)+CH DB 8 
R#(172)+CHR# 140) +CHRE& (183) +CHRE& (194) 
' 840 LOCATE 11,&:PRINT"ODriginal" 
' 850 LOCATE 15,7:PRINT CHR& (241) 
' 860 LOCATE 24,20:PRINT"M = Zurueck zum":LOCATE 24,21:PRINT" Hauptmenue" 4 
za 870 FEN #2,2:L0CATE #2,1,2:FPRINT#2, "Cursor steuern: "+CHRF(240)+" "4CHRSI241)" "+ | i 
= +CHREI242)+" "+CHRE(243) at 
; 880 LOCATE #2,1,4: PRINT#2,"Punkt ein/aus: >C0Pye" 
'B70 REM Hs HHHHHHHHHHHHBSHHHHHSHHHHHHHBBISHHHHHHHHHHIIHHISIBIHH | 
700 REM E06 DUNST | m} 
'@10 REM esssHHHHHHHHHHHHHHHHHHHHHRHHHHHIHHHIHIIHHHI HH IH m 
2 SER Bynkalm: fuer Cursormatrix und selbstdefiniertes Zeichen we 
940 SYMBOL 254 ‚255,129, 129,129, 129,129, 129,255 
750 SYMBOL 255,255, 233 ‚255,255, Fa 255,255 
ı Hal SYMBOL 253, VALE"R"+Work$ 10) ) „MALER H+WOorkFtl)) vALD ER" +Work# 123) „VAL 4Wor 
E#13)) „VAL ("ge +Wwork$14)) ‚VALt"S"+work&t5)), VALLE 
orks(6)) ‚VALt"g Works (73) 
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970 REM 


980 REM Anzeige der Matrix und des zu bearbeitenden Zeichens 

og REM ET En —  — gg 
1000 FAPER #1,2 

1010 FOR z=1 TO B: FOR s=1 TO 8: a= VALIHIDFIwork#iz-1) ,„s,13)ı PEN #i,a 

1020 LOCATE #1,5,2: PRINT #1 ,CHR# (254+a) 

1030 NEXT s,z 

1040 LOCATE #0,15,7:PAFPER #0,1: PEN #0,0: PRINT #0,CHR# (253) 


1050 REM 

1050 REM Cursor oben links in Matrix positionieren 

1070 REM seerszseszsomsssossssusssnnnr sans nn nase te mm mp II TO SITZE 
1080. z1=-9:s81=-9:z=1i:s=1ı60SUB 12970 

1070 REM 

1100 REM Tastaturabkontrolle und Verzweigung 

i1liO REM Sss=s=eeoszmersermermorermssecsmmmzmsussszssssssssSsssssssseemepmeoamsoerm mm mezmoem m m 


1120 FOR a=1 TO 50:NEXT a 

1130 a$=INkKEY#: IF a$%>"" THEN 1130 

1140 IF INKEY(Ö)}=0 THEN LET zi=z-1: GOSUB 1290: REM hoch 

1150 IF INKEYI1)=0 THEN LET si=s+l: GOSUB 1290:REM rechts 

1150 IF INKEY(B)=0 THEN LET si=ss-1: GOSUB 1290: REM links 

1170 IF INKEY(2)=0 THEN LET zi=z+1l: GOSUB 12Y70:REM runter 

1180 IF INKEY(7)=0 THEN GOSUB 1380:G05UB 1270:REM Copy 

1196 IF INKEY(50)=0 THEN GOSUB 1910:60T0 FF70:REM Rotieren 

1200 IF INKEY(&0)=0 THEN BOSUE 2010: 60T0 970: REM Spiegeln 

12106 IF INKEY(35)=0 THEN GOSUB 1800:60T0 790: REM Invertieren 

1220 IF INKEY(3&)=0 THEN GOSUB 1450:60T0 1000:REM Zeichen laden 

1250 IF INKEY(49)=0 THEN GOSUB 1510:REM Zeichen abspeichern 

1240 IF INKEY(SB8)=0 THEN ERASE work#,hilf$:60T0 470:REM Menue 

1250 GOTD 1120 

1250 REM 

1270 REM Anzeige & Zeichens unter Cursor und Cursorberegung 

1250 REN == = z=e=22=e. rm m u u mu mus mn u 

1290 a= VALUE" + MID$ (work&tz- 1),.s,1))ıPEN #1,a 

1300 LOCATE #1,s,z:FPRINT #1,CHR#(254+a) 

1310 z= ABS (B# (z1=0)+(21=9)+21#t (2120) AND tzi<P)}) 

1320 s= ABS (B#tisi=0)+lsi=eFf)+tesi#llel>0) AND (5li9))) 

1330 a= VAL("Ex"+ MID#Finork#iz-1),s,1)): PEN #1,3 

1340 LOCATE #1,5,2:PRINT #1 ,CHR#(254+a) ı RETURN 

1350 REM 

15360 REM Aenderung des Status 0/1 mit Copy 

15370 REM ZEZSSSzmmeee tt tlcnccosssesszzszermEIDEOBISSBSES 55er zzssetlegEisSszszsszzEsssn 
1580 a= VALt"&"+ MIDF(work$tz-1),5,1)) 

1396 IF a=0 THEN MIDstwork#(z-1),5,1}="1" ELSE MID#Ftwork#(z-1),5,1)="0" 

1400 SYMBOL 253,VAL "Ex "+mork#(0)) „VALI"ER"+work#tl)), VAL "Ex "+work$(2)), VAL" 
"+wark$ (3) ) „VALUE "Mork£ (43) „VALC"&x"+wark$(5)), YA 

Lira" 4+work# (59) ,VALLU"ER"mork#i173) 

1410 LOCEATE 40,15,9: FAPER #0,1:PEN #0,0: PRINT #0,CHR# (253) :RETURN 

1420 REM 

1430 REM Zeichen einladen 

1440 REM =emmzmmsasssssesssesmmmmmsssss ss ass a VE Da a m tn re ee re 
1450 a$=INKEY$:PRINT"":CLS #2:PEN #2,2:LOCATE #2,1,2:PRINT#2,"Welches Zeichen " 
1450 FRINT#2,"moechten Sie aendern F"LPRINT#2, "chr$ 0 oder 32-255": PRINT#2, "0= 1 
eero Matrix" 

1470 PRINT#2,"":INPUT#2,"Eingabe danach ENTER";ja 

1480 IF a=0 THEN FOR b=0 TO 7:workf#ib)>= "00000000" NEXT b:GOTO 1510 

1490 IF a<32 OR a>255 THEN 1450 

1500 asa-31:F0OR b=0 TO 7:vnork#(b)=BIN$tcodeta,b),B}:ıNEXÄT b 

1510 SYMBOL 255 , VAL ("Ex "+work# (0) VALUE" mark#(1}) „VALU"ER"+nork# 123) „VALUES 
"+uork#it33) VAL" "waork#t4)) „VALL"ER"Hmork#i5)) „VA 

Lee +wark$ 16) ) „VAL ("c"+mork$(7)) 

1520 ECLS#2:PRINT#2,"Dieses Zeichen": PRINT#2,"moechten Sie aendern":PRINT#2,"":FA 
PER#2 ,O:PRINT#2 ,CHR$ (253) :PAPER#Z2,1:FRINT#Z, "SPRINT 

#2,"Richtig J/N" 

1530 a#=INKEY#EIF as="" THEN 1530 

1540 IF asf="j" OR a#="J" THEN E0TO 1580 

1550 GOTO 1450 

1560 CLS#2: PEN #2,2:L0OCATE #2,1,2:PRINT#2, "Cursor steuern: "+CHR$ (240) +" "+CHRF( 
al)" "++CHREI242) +" "+CHRF(243) 

1570 LOCATE #2,1,5:PRINT#2,"Punkt ein/aus: >CLOPY<":RETURN 





1580 REM | 
1570 REM Zeichen ablegen 
1500 REM zeug enuusssssse momuosssssesesseesmroossssssssmmmzma am 


1510 PRINT"":FOR b=1 TO 10: a$s=INKEY$:NEXT bsCLS#Z:PEN #2,2:L0OCATE #2,1,1: PRINT 
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42, "Ihr neues Zeichen: "::PAPER 42, 0 a |. 
1420 SYMBOL 253 ‚VALUEX"+Waork#t0)) „VALU"ER"+Waork# (119 „VAL "ER" +worksi2)) VALUE 1 
"+uark#t3)) ‚VALC"&x"+work&t4)) „VALt"r"+work£t5)) „Un ! 
Lite" +nmork#iä)) „VALL"ExR"+mork# (71) 
1550 PRINT #2,CHR# (2535): PAPER #2,1: PRINT #2,"Unter welcher Chr$-Nr":PRINT #2,"s 
all es gespeichert": INPUT #2,"werden "za 
1540 IF a‘{32 OR a>255 THEN 1810 
1550 asa-51:FOR b=0 TO 7:hilfsib) morkFib) :workF#tb}I=BINF (code (a,b) ,„BI:NEXT b 
140 SYMBOL 235, VAL" ur "+mork#10)) „VALUE " Work#t1)) „VAL C"Er "work# (231) „VAL "Ex 
"+work#i35)) VALUE "HWork# (43) „VALUE "Wmork#(5)) „VA 
Li"’Ex"+work£iö)) „VALU"ER"+uork#(7)) 
1570 CL5S#2:LOCATE #2,1,1:FRINT #2,"Diesese Zeichen":PRINT #2,"wird ueberschriebe mr i 
ne"=PAFER #2,0: PRINT #2,CHR# (2535) :PAPER #2,1 
Be 1580 FRINT #2, "Richtig J/N" 
|: @ 1590 af=INKEYf:IF af="" THEN 1590 
| 1700 IF as="j" OR a#="J" THEN 1720 e 
1716 FOR b=0 TO 7rwork#$tb)=shilfstb):NEXT b=: 6GOTO 1510 | | 
1720 FÜR b=0 TO 7Tıcodeta,b)= VALLE" "+hilfstb)): NEXT b 
| 1730 codela,B)l=a+3i1 
| @ 1740 FOR b=0 TO 7z:work#i(b)=shilfsib) NEXT b 
| 1750 ECLS#2: FEN #2,2:L0CATE #2,1,2:PRINT#2, "Cursor steuern: "+CHR& (240) +" "+CHRFL 
lo 241)" "++CHRFiI242) +" "+CHRFL243) 
| 17580 LOCATE #2,1,5:PRINT#2,"Punkt ein/aus: >COPY<":RETURN 


1770 REM 
| i 1760 REM Zeichen invertieren 
1790 REM memezmeermeeresesessssssssseogmesmmesmesseessssassasccammmonmmommmnnmeroeenn 


+ 1800 CLS #2:L0CATE #2,3,3:PRINT #2,"Ich invertiere,":LOCATE #2,3,4:PRINT #2," bi 
Bibi tte warten" 
| 1810 FOR a=0 TO 7:FÜR b=1 TO BsIF MID$tmorkFta) ,b,i)="0" THEN MID#twork#(a),b,1) 
a ! ="1" :607T0 1830 
FR 1820 IF MID£twork$ta) ,b,1)="1" THEN MID$ (work$ta) „b,1)="0" 
| ' 18350 NEXT b,a 
© ı 1840 SYMBOL 253,VAL ("I "+work#t0)) ‚VALUE "mork#t1)) „VALK"E"+work# (23) „VALL"Ex 
"+work#(3)) ,VALU"RR"+Work# (43) „VAL C"ia"+Wwork#(5)) „VA 

Fr. Lit" mork#iä)) VALUE" Amork#(7}) 
- ' 1850 ELS #2:PEN #2,2:L0CATE #2,1,2:PRINT#2, "Cursor steuern: "+CHRF(240)+" "+CHREL 
| 241)" "++CHRE(242)+" "+CHRE (243) | 
8 | 1860 LOCATE #2,1,4:PRINTH2,"Punkt ein/aus: >LCOPY<" \g 

‘ 1870 RETURN 
| ' 1880 REM Ä . 
M, ' 1870 REM Zeichen rotieren m 





| m 1710 CLS #2: LOCATE 42 ‚2,3:PRINT #2,"Ich rotiere," :LOCATE #2 ‚244: PRINT H2;"bitte 
Ki warten" 


1920 ERASE hilf$:DIM hilf#t7) 

1930 FOR a=0 TO 7: FOR b= 0 TO 7:b$= MIDstwork$(b) „atl,1)+b$:NEXT bihilfs$tla)=b$: 
b$="":NEXT a ri 
1940 FOR a=0 TD 7:work#la)= hilf#lal:NEXT a ®@ 
1950 SYMBOL 253,VALtE"x "+mork#t0)) „VALE"ER "+uork#t1)) „VALU" ER" Hmork# (23) „VALLU"TENR 
"+work#13)) „VALC"&x"+work#t4)) „VAL Ü"&x'mork# (57) „VA 

Li" "+waork#i(8)) „VALE"ER"Hmork#t7)) 

1960 CLS #2:PEN #2,2:LOCATE #2,1,2:PRINT#2, "Cursor steuern: "+CHR#L240)+" "+CHRE( 

241)" "HHCHR$i242)+" "4CHRFI245) 

1970 LOCATE #2,1,&:PRINT#2,"Punkt ein/aus: >LOPY<" 

1980 RETURN 

197970 di Zeichen seieguln 





I 
| 


' 2010 CLS #2:LOCATE #2,2,3:PRINT #2,"Ich Sniegele, "sLDCATE #2,2,4:PRINT #2, "bitte 
® warten” Fortsetzung Seite 59 





Korrektur zu „SMILEY“ 
e; für Dragon 32 in Heft 5 


© 130 VY&t1)="DER BOESE SMILEY DICH GEFRESSEN HAT!!":VEt2)="DU KEINE ENERBIE MEHR H 
| ATTEST! 11": FORA=OTOS:SC (A)=250: SCH (A="XKXXK"INEXTA = 
| „ |, 140 FORL=0103:FORD=0107:READS(L ‚D) :NEXTD,L:FORP=OTOS:P{P,S)=1:NEXT 
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2020 
2030 


ta)=hilf#la)lıNEkT a 


2040 


"tmork#(i3)) „VALUE "+mork#(4)) ‚VALLE 4Work$ (51) „va | er) 
Ling "4warks(6)) ‚VAL ("x "4Work$(7)) m 


2050 


241)" "+4+CHR#E (242) +" "+CHR&(245) 


2050 
2070 
2080 
2070 
100 
2110 


ERASE hilf$:DIM hilfsıt7) ‘® ausm 
FOR a=0 TD 7:FOR b=1 TO 8:hilfsta)=MIDs tworktta) „b,i)+hilf$ta)=NEXT biworks : u 


SYMBOL 255,VAL "x "+work&£(0)) „VALÜ"ER"morkE(1)), VAL ("u "+work# (27) „VALC"E 


CLS# 2:PEN #2,2:LOCATE #2,1,21FRINT#2, "Cursor steuern: "+CHRFL240)+" "+CHREI( 





LOCATE #2,1,5:PRINT#2, "Punkt einfausı >COPY£" = u 
RETURN \ 
REM u 
REM gesaenderten Zeichensatz abspeichern ” 55 , 
REM Ss S5SS22mme2=e==-=-=--- --ooSommeesmee ones oooommmm | 


BEE mn mn 








ELS#0:LDOCATE #0,2,B8: PRINT "Bitte geben Sie den Namen":LOCATE 2,10:FRINT "Ih 


res Zeichensatzes a MH LOCATE 2,12:PEN 3: PRINT"Ein 


2120 
2150 
u 


2270 


I}raf=aaftası as= LEFTS(a%,152): PRINT #9,a$ra$="" 


2280 
2290 


RIGHT#(aa$,li)rafsaastafı as= LEFTFl(aF, (LENta$)I-1)) 
ı FRINT #7,a% 


23500 
2310 
2320 
23530 
2340 
2330 
250 


NT #7,a# 


2570 
2580 
2370 
2400 
2410 
2420 
2450 
2440 
2450 
2450 
2470 
2480 


h>ENTERE" 


2490 


&: PRINT #0,"Sie einladen :"zjrINPUT atına$sastıate" "4 a8 


2500 


2510 


"wird geladen. ":LOCATE #0,2,97:PEN #0,3:PRINT #0,"Bit ve \ 
te warten | 


2520 
2330 
2340 
2530 
23580 
2370 
2580 


ı a#$=-attaası NEXT b 
ı a$easr"," 
0 nesncti: IF hoc=0 THEN LET hcsa+t3i 


#0.,2,.5:PRINT #0,"danach PLAY-Taste druecken":LOCATE re 
#0,2,9:PEN #0,3:PRINT #0,"weiter mit >ENTER<Z":PEN #0,0:CALL &BBi8 


d=c(8)-31:FOR b=0 TO 8: codetd,b)I=cib):NEXT b,a 


gabe, danach Enter":PEN 0 . | 


LOCATE #0,27,10: INPUT #0, aaf: a$="":na$f=zaaf 

ELS#0:LOCATE #0,2,5:PRINT "Bitte Band einlegen und positionieren," 
LOCATE #0,2,&: PRINT "danach REC+PLAY-Tasten druecken," 

LOCATE #0,2,7:PRINT "danach weiter mit >ENTER“" 

CALL &BB1l8B 

aas="!"+3aFıCL5 80:LOCATE #0,2,5:PRINT "Der Zeichensatz "+naf 
LOCATE #0,2,5:PRINT "wird auf Band gespeichert." 

PEN #0,3:LDCATE #0,2,B:PRINT "Bitte warten Sie einen Augenblick": 
OPENDLUT aa# 

nr=b855090:hce=üenc=o 

FOR a=1 TOD 224:1IF codeta,B)=0 THEN 27280 SE, 
FOR b=0 TO Braa#= HEi#icodeta,b}}:IF LEN (laaf)=i THEN LET aaf="0"+aaf 


PEN #0,0 


IF LENta$) >=151 THEN LET nrenr+10:aa$= STR$inr)+" DATA ": aas= RIGHTS(aas,1 
NEXT a 
IF LEN{a$#)<151 AND LEN(a$)>0 THEN LET nr=nr+10:aaf= STR£Inr)+" DATA ": aaf= | © 


IF he’= 100 THEN hes= RIGHT$(STRFChe) „FI ELSE hc$= RIGHT$ (STREICH) „2) 

IF nc>= 100 THEN nc$= RIGHT#(STR#(nc) „3? ELSE nc#= RIGHT#(STR#& (inc), 2) 
as="&5000 REM Zeichensatz mit dem Namen "+na#: PRINT #7,a# 

af="55010 DIM c{8)r RESTORE 85100":PRINT #7,a% 

ag="545020 SYMBOL AFTER "+hc#$ıPRINT #7,3# 

a$="45030 FOR A=1 TO "+nc$+" :READ a8" ı PRINT #7,a8 

at="55040 FOR b=0 TO B: cib}= VALICHRFLISBI+MIDFLAF, (b#2+1) 29): NEXT b"=:PRI 


as="55050 SYMBOL ct8),ct0),ct1),,ct2),ct3),cl4) ,c(H,cl(6)I,ct79 "PRINT 
as="55080 NEXT a: ERASE c: RETURN":PRINT #9,a# 

ELOSEDUT 

ELS#0: LOCATE #0,2,3:PRINT "Ihr Zeichensatz ist gespeichert," 

LOCATE #0,2,5:FRINT "bitte Recorder abschalten !" 

PEN #0,3:LDEATE #0,2,8B: PRINT "Weiter mit jeder Taste":PEN #0,0 

CALL #BB18 

GOTO 530 

REM 

REM geaenderten Zeichensatz einladen 

REM zezzzeze,sespserrrmm esse me me e 


DIM B#iB}), ciB})zas="";CL5#0: LOCATE #0,2,9:PEN #0,3:PRINT #0, "Eingabe, danac 


#7 ,a# 


PEN #0,0:LOCATE #0,2,5:FPRINT #0,"Welchen Zeichensatz moechten":LOCATE #0 +24 


CLS#0:LOEATE #0,2,5:FRINT #0,"Bitte Band einlegen und positionieren":LDCATE 


ECLS#0: LOCATE #0,2,5:FPRINT #0,"Ihr Zeichensatz "+nat:LOCATE #0,2,5:PRINT #0, 


sie einen Moment":PEN #0,0 ir 
OFENIN a# (u 
LINE INPUT #9,a# . | 
IF LEFT$ia#,5)="55000" THEN 2400 

afe RIGHT&£tas, LENta#)-1l}):cv= INT (LENta#) /18) scvecv-i 

FÜR a=0 TO evib$tal= MIDt(a$, (a#19+1),18):NEXT a 

FOR a=0 TO cv: FOR B=0 TO Br cib}= VAL tuau4 MIDEtCbF(a) „ (b#2+1) „231 NEXT b 
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@ ı 2820 REM 


2&00 ELOSEIN 
2610 ERASE c:60T0 530 


Zeichensatz mit dem Namen Symbole 


2530 DIM ci8): RESTORE 2590 


a | 2640 SYMBOL AFTER 158 
“| 2450 FOR A=1 TO 35 :READ as 


“& nm nn m pn m on 


© | 25970 GOTD 2530 


2550 FOR b=0 TO Br cib)= VALICHR#(3B8)+MIDFIaF, (b#2+1) ,2))2 NEXT b 


© ı -28670 SYMBOL ct8) ,ct0),ct1},ct2),cel9,c(4),c15),c16),c(7) 


2580 NEXT a: ERASE c: RETURN 
2570 DATA 000000080C7E0COBFE „000000 10307E3010F7F , O0000000000000FFA0,FFFFEOEFRODSD 


 ı  4D4A1,FFFFOSFSOBCB2B2BA2 „D7D4DOLFLOCHFFS0AF,EBZ2BORFS 


0303FFOCA4 ‚000003020F0BSF20AS 


BFFAF,FFOOOOCOOR0000000AA , FEFBFFBOBOBOBOFFAB , 00008000 
‚, So000öFFAC,FF00000007070404AD 
ı 2710 DATA FFOlOI1OiFIFIF1F1AE „04000000000000FFAF „11010101010101FFBO,FFO0000001000 
000B1 „FFO10101F#171#F9B2 ,00000100000000FFB3,1719F9701 
OlLOIOIFFB4,FFOO7F7FAÖ087878065 
2720 DATA FFOlIEI1E1S1E1EIE1BE,54787607F7FOO00FFB7T ‚„E1lEl81E1E10101FFBS,FFOOOOOBOLTEO 
CO8B? „FFOOOOL1OSOFESOLOBA „/FFFEOC7EBDODODOBB,FFFFOOBI 
42242424BC,FEFFOÖSES130BOBOBED 
Br RATE DDEDTDIERESFFZERE S2F 232 SVERSOEREFBE FODTBERPRESOHETEEES 
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Dieses Spiel läuft auf allen 
ATARI-Computern mit 





mind. 32 Kb RAM. 


Das Programm ist für Diskettenbenut- 
zung vorgesehen. Um es auf Kassetie 
lauffähig zu gestalten, müssen folgende 
Zeilen geändert werden: 

Vorprogramm 1: 180 GR.&:CLOAD 
Vorprogramm 2: 200 GR.O:CLOAD 
Hauptprogramm: 10560 Fh(l,2*"C:* 
Um das Programm auch mit einer mög- 
lichst geringen Speicherkapazität lauffä- 
hig zu gestalten, wurde es in drei Teile 
untergliedert, die folgendermaßen ein- 
getippt werden: 

Il. Vorprogramm |] 
(Disk:MONTY1.BAS) 

2, Vorprogramm } 

(Disk: MONTY2.BAS) 

3. Hauptprogramm 
(Disk:MONTY.BAS) 

In den Programmen befinden sıch keine 
Inversen- oder Sonderzeichen. Es läßt 
sich also normal auslisten. 

Und nun geht's los! 

Es handelt sich hierbei um ein Spiel, bei 
dem, nachdem mit Hilfe des integrierten 
Screendesigners cine Spielszene erstellt 
ist, die Aufgabe darin besteht, einen 
kleinen Mexikaner zum Ausgang .des 
Spielfeldes zu bringen. Dabei wird man 
(meistens) durch De Objekte be- 
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hindert: 

- Fließbänder 

- Ketlen 

— verschwindende Böden 

- Flammen 

- Spinnen 

- Totenköpfe 

Der Mexikaner wird wie folgt mit dem 
Joystick gesteuert: 

Links = Mexikaner läuft nach links 
Rechts = Mexikaner läuft nach rechts 
Hoch = Mexikaner klettert Leiter oder 
Liane hoch 

Runter = Mexikaner klettert Leiter oder 
Liane runter 

Roter Knopf= Mexikaner springt 
Beim Sprung ist zu beachten, daß die 
Joystickbetätigung NACH dem Drük- 
ken ausschlaggebend für die Sprungrich- 
tung ist. 

Nach Starten des 1. BEDERADNLES dauert 
es eine kleine Weile, bis das 2, Pro- 
eramm nachgeladen wird. 

Nachdem das ?. Programm eine schöne 
Melodie (die sich über eine Stereoanlage 
viel besser anhört) gespielt hat, wird das 
Hauptprogramm geladen. Nun er- 
scheint eın Titelbild mit der Aufforde- 


rung SELECT zu drücken. Dann befin- 


2700 DATA OOÖ6OFCO4F414D454AA,FFB1997ASBDASBIFFAT7, 5450507040C00000AB ,FFAOBOROFFF7 


man Bachela.. 


ATARI 


kleine Mexikaner 





Montezumas Rache: 





det man sıch ım EDITOR. 
Mit Hilfe des Editors kann man Spiel- 
szenen erstellen und auf Diskette (oder 
nach Umschreiben auch auf Kassette) 
speichern. 

Der Cursor wird mit dem Joystick ge- 
steuert, der Feuerknopf dient zum Set- 
zen der Spielelemente. 

Folgende Elemente stehen zur Verfü- 
gung: 

I. Leerzeichen. | 

2, Mauern, auf denen sich der Mexika- 
ner bewegen kann. 

3, Stangen, an denen man automatisch 
herunterrutscht, 

4, Lianen (Öberteil und Liane), an de- 
nen man hoch- oder herunterklettern 
kann. Die Lianen dürfen nie ganz bis 
zum Boden reichen und müssen die 
Mauer, von der aus sıe erreicht werden 
sollen, durchdringen. 

5. Leitern. Sie müssen bis zum Boden 
reichen. 

6. Fließbänder (rechts und links). 

7, Ketten, die erscheinen und ver- 
schwinden. Tödlich! 

$. Böden, die erscheinen und verschwin- 
den. 

9, Spinnweben (links und rechts). Die- 
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onen nur zur Verzierung. 


10. Flammen (lodernd). Tödlıch! 


Il, Flammen (sollten unter die lodern- 


den Flammen geseizt werden). 

12, Spinnen. Tödlich! 

13, Totenköpfe. Tödlıch! 

14, Schlangen. Tödlich! 

15. Schwerter (können gesammelt wer- 
den). 

16. Bonuspunkte zum Sammeln. 

17. Schlüssel dienen zum Öffnen der 
18. Türen 

Zum Editieren werden zusätzlich fol- 
gende Tasten benutzt: 

Q-(Quit) um wieder zum Titel zu gelan- 
gen 

T- (Test) um den Screen zu spielen 

D- (Disk) 


i REM 


KE 53763,170 

50 POKE 559,0 
+1, A 

100 RESTORE 26000 
120 RESTORE 27000 


so 
140 RESTORE 28000 


So 
1&0 RESTORE 27000 


70 


70 POKE CH8+3072+1,AsNEXT I 


F- {Fill} um den Bildschirm mit dem 
gewählten Zeichen zu füllen 

<- um den Screen zu löschen 

C- (Character) um das Zeichen zu wech- 
seln, mit dem editiert wırd. 
S5- (Start) um den Startpunkt des Mexi- 
kaners festzulegen 

E- (Exit) um den Zielpunkt:des Mexıka- 
ners festzulegen 

OPTION um die Farbe der Mauern zu 
ändern. 

Das DISK-MENUFE beinhaltet folgende 
Funktionen: 

L-LOAD SCREEN 

S-SAVE SCREEN 

D-DISK DIRECTORY 

E-EDIT 

Bei Load und Save wird man aufefor- 


10 REM ##= VORPROBRAÄMM i ### 
20 PAGE=140:1CHS=PABE#25541BQOUND 0,0,0,0 | Ir 
30 POKE 53750 ,200ıFOKE 537&62,101ıPOKE 53754, 1001 PDKE 53764,.2011POKE 53751,1701P0 


40 POKE 53765,1701F0KE 53767,1701POKE 53768,7 


110 READ Cı IF L<>-1 THEN FOR I=0 TO TıREAD ArPOKE CHS+C#B+1,AıNEXT IıBOTO 110 
130 READ CıIF C<>-1 THEN FOR I=0 TO 7ıREAD AıPOkE CHS+C#B+1I+1024,AıNEXT TıBOTO 1 


170 READ CılIF C{>-1 THEN FOR I=0 TO 7TıREAD AıPOKE CHB+C#8+1+3072,AıNEXT IıG0TO 1 Zn 


150 RUN "Di MONTY2.BAB" 


dert, einen Namen anzugeben. Hierzu 
werden mit der Tastatur bis zu acht 
Buchstaben eingetippt. Die Eingabe 
wird mit Return beendet. Beı Kasselte 
ist kein Name erforderlich. 

Die Directory kann mit CNTRL.I ange- 
halten werden. Wenn die Directory voll- 
ständig aufgelistet ist, drückt man RE-. 
TURN, um wieder ıns DISK-MENUE 
zu gelangen. 


Noch einige Tips zum Programm: 
Das Laden des Programmes geht so vor 
sich: 


Computer AUS, Basic rein (nicht bei 
800 XL), Computer an, warten, tippen: 
RUN"D:MONTY1.BAS 





&0 FOR I=i28 TO 2071 A=PEEK (57344+1) ı POKE CHS+1,AıFOKE CHS+1024+1 ,AıPOKE CHE+2048 


F 


150 READ CıIF C<>-1 THEN FOR I=ö TO TıREAD AıPOkE CHS+C#B+1+2048,AıNEXT IıG0T0 I MM 


25000 DATA 33,251,251,251,0,191,191,191,0 $ 
26030 DATA 36,16,16,8,8,16,16,8,8 | 

26040 DATA 37,129,2553,127,129,129,255,129,129 | 

26050 DATA 38,136,255,0,68,0,255,17,0 MR, 
268080 DATA 39,17,255,0,58,0,255,134,0 

26070 DATA 40,55,40,56,16,56,40,56,16 | 
258080 DATA 41,255,170,255,0,0,0,0,0 | 
258070 DATA 42,285.175,.185,91,93,39,25,7 | =! 
25100 DATA 43,255,181,237,218,104,228,152,224 a 5 
26110 DATA 44,0,34,34,102,119,247,247,106 

26120 DATA 45,235,255,.233 2 zug aun er 
26130 DATA 46,0,0,96,152,30,121,142,1 ı ® 
26140 DATA 47,124,214,214,254,124,84,40,56 | 
24150 DATA 48,80,85,155,12,48,77,797,82 ı m 
26160 DATA 47,24,24,60,24,24,24,24,8 | 
26180 DATA 51,80,102,50,24,24,36,28,56 © 
28170 DATA 52,125,125,125,125,114,125,125,1265 => 
26200 DATA 53,104,240,232,84,188,16,104,7& 

26210 DATA 34,22,15,23,42,51,8,22,50 ı 
25220 DATA 35,58,595,124,56,15,56,44,96 wer) 
26230 DATA 585,0,77,37,60,105,187,205,128,-1 - M 
27000 DATA 335,251,251,251,0,191,191,191,0 ı 
| 27010 DATA 34,24,24,24,24,24,24,24,24 27 
ie! 27020 DATA 35,50,8,8,16,15,8,8,16 Eu 
Ze. 27030 DATA 6,1&,0,0,16,16,8,8,1& | ee 






————— o EEE 7 EEE CE GE Te u u j i m 7 ; —.- ET Er A — r 
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; | “ ä = & z "m 
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10 POKE 359,0 


50 BOSUB 


40 RESTORE 1000 


10000 


27040 
27050 
27060 
27070 
27080 
27090 
27100 
27110 
27120 
27130 
27140 
27150 
27160 
27170 
27180 
27190 
27200 
27210 
27220 
27230 
28000 
28010 
28020 
28030 
28040 
28050 
28060 
28070 
28080 
28090 
28100 
28110 
28120 
28130 
28140 
28150 
28160 
28170 
28180 
28190 
28200 
28210 
28220 
28230 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


37,129,129,255,129,129,129,255,129 
38,68,255,0,68,0,255,54, Ö 
39,34,255,0,56,0,255,68,0 
40,15,56,40,56,15,55,40,56 
41,255,170,255,0,0,0,0,0 
42,255,173,183,71,93,59,25, 7 
43,255.181,237,218,186,228,152,224 
44,0,58,68,70,110,239,237,85 

45 255 255, 235 255 255 258, ,255,255 
45,0,0,0,125,153,24,102,129 
47,0,14,63,217,191,217,63,14 
48,60,06,38,12,57,97,99,82 
47,24,24,50,24,24,24,24,8 
50,50,70,125,102,102,125,70,50 
=1,50,102,60,24,24,55,28,56 
=2,1265,126,126,124,114,126,126,126 
53,104,240,232,84,188,16,16,24 
54,22,15,23,42,61,8,8,24 
==,20,28,42,20,8,28,52,& 
55,0,77,397,60,106,187,205,126,-1 
33,251,251,251,0,191,191,191,0 

nt „24, 24 ‚24,24 „24 „4 ‚24,24 
35,60,8,16,16,8,8,16,16 
36,8,8,15,16,8,8,16,16 | 
37,129,129,129,255,129,129,129,255 
<9,34,255,0,58,0,255,68,0 
39,68,258,0,68,0,255,34,0 
40,55,16,565,40,55,15,396,40 
41,255,170,255,0,0,0,0,0 
42,255,173,183,91,73,39,251 7 
43,255,181,237,219,185,228,1532,224 
44,0,65,66,99,231,247,247,106 
25,255 255,255 255,259, 259,295 1,293 
45,0,0,6,25,120,158,77,128 

47 ,56,40,84,124,254,214,214,124 
48,50,86,166,12,58,97,99,62 

497,24 ‚24 Pie ‚24,24, 24 „24 ‚8 
50,60,70,124,102,102,124,90,40 
„a0, 102,50,24,24,55,28 Pi-7-' 
52,125,126,126,126,114,126,126,126 
53,104,240,232,84,188,15,104,76 
=4.22,18,23,42,61,8,22,50 
55,56,56,124,56,16,56,44,96 
=5,0,77,39,60, 105, 187,203, 128,1 
33,251 ,251,281,0,191,191,191,0 
34.,24,24,24,24,24,24,24,24 
75,60,16,15,8,8,16,16,8 
34,8,1&5,16,8,B,16,15,8 IE | 
37,255,129,129,129,255,129,129,129 
39,17,255,0,69,0,255,136,0 

39,136, 2535,0,68,0,255,17,0 
40,40,36,16,56,40,56,16,5& 
41,255,170,255,0,0,0,0,0 

urn 173, 183,91 ‚73,39 At Pr 4 
43,288 181,237,218,186,228,132,224 
44,0,65,66,70,197,239,2397,86 

Pd er vn pr te Pr tn = Pr 1 Pe Fe Pre 
45,0,0,0,126,153,24,102,129 
48,50,864,38,12,57,97,99,62 
4924,24 .60,24,24,24,24,8 
50,60,70,125,102,102,124,90,&0 
=1,60,102,60,24,24,56,20,5& | 
52,126,126,126,124,114,1264,126,126 
55,104,240,232,84,188,16,15,24 
=4,22,15,23,42,61,8,8,24 
=3,28,28,52,28,8,28,32,6 
565,0,97,39,60,1056,187,205,126,-1 


KEN 


30 E=eC+lılF C=? THEN CeiıREAD Rb,BD 
50 A=ABCIRFICHRD,CHRDI II IF AC>O THEN RT=eAıRlLeidıRö=7ılf RT=1 THEN RlLesıRöes 
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I | 


ı® ı 65 IF A=O THEN RT=RTIRL=eRLIRS=RB 

3.70 A=ABC(B£IC+HBD,C+HBDI) IF AC>O THEN BT=AıEL=10 is 

| 80 ST=ABCS$(C+BD,C+BD)) Da 
70 READ AslF A=-1 THEN 200 a 
100 IF A<>O THEN T=Aı TL=10180UND 0,0,0,0 I 

= ' 110 FOR I=12 TO 0 STEP -& E 

= 7120 SOUND 0,T,10,TLıSOUND 1,RT,8,RLıSOUND 2,BT,12,BL 


| | 130 TL=TL-(TL30) IRL=RL-RS# (RL>=RS) ı BL=BL-2# {BL>O) ı SOUND 5:91,10,8 
® : 4140 NEXT IıSOUND 3,0,0,0 | 1310 DATA 0,0,68,0,45,91,0,91,45,0 
; 150 G0T0 50 ı 1320 DATA 0,0,58,0,45,45,971,0,45,45 
= '‘ 200 RUN "Di MÖNTY.BAB" 1530 DATA 8,0,58,0, 68, 0,60,0,55,0 
hei 1406 DATA 0 56,50, DO ‚0.0, Ö „50, ‘45, So 
ı 1000 DATA 0,0,58,0,45,45,91,0,45,45 1410 DATA 0,55,40,45,0,50, 0,57, 50, 68 
= ' 1010 DATA 0,0,68,0,45,91,0,91,45,0 1420 DATA 0,44,76,0,76,0,58,64,0,&0 
+. 40920 DATA 0,0,58,0,45,45,71,0,45,45 1450 DATA 15,54,0,0,0,0,0,0,0,0 
1030 DATA 8,0,68,0,0,0,0,108,102,9& 1440 DATA 0,72,537,0,0,0,0,57, 50,57 
© | 1050 DATA 0,9,71,0,53,0,53,60,0,64 1450 DATA 0,72,45,50,0,57,0,54,40,7& 
' 1060 DATA 0,16,0,0,0,0,0,81,85,91 1460 DATA 0,80,95,0,85,0,76,68,0,0 | 
 , 1070 DATA 0,24,754,0,50,0,50,588,0,72 1470 DATA 0,32,72,58,0,50,0,0,0,0 
© ı 1080 DATA 0,32,0, ö 0,0, 0,71,98, 102 1480 DATA 8,32,0,0,0,0 ‚O,108, 102, DE Tr 1 
1090 DATA 0,40,108,91,48,81,0,48,40,0 1500 DATA 0,8,91,0,53,0,53,60,0,54 | .. 
„ '‘ 1100 DATA 0,48,71,75,97,58,0,37,50,0 1510 DATA 0,15,0,0,0,0,0,81,85,71 En 
en 1110 DATA 8,32,45,0,0,0,0,0,0,0 1320 DATA 0.24.95,0,60,.0,60,68,0,72 | 
1120 DATA 158,32,0,0,45,45,40,45,57,80 1550 DATA 0,32,0,0,0,0,0,71,75,102 
© , 1200 DATA 0,8,88,0,53,0,53,80,0,64 1540 DATA 0,40,108,71,88,81,0,589,60,0 
1210 DATA 0,15,0,0,0,0,0,81,85, 71 1550 DATA 0,48,71,75,57,68,0,37,90,0 
Fig 1220 DATA 0,24 ‚9,0, 60,0, 50, ‚69, 0,72 1550 DATA 8,32,45,0,0,0,0,0,0,0 
= ı« 13250 DATA 0,32,0,0,0,0,0,71, 96. 102 1570 DATA 15,32,0,0,45,45,40,45,537,50 
. 4240 DATA 0,40,108, 91,68, 81,0, 8 ‚0,0 1500 DATA 0,0,48,0,45,45,71,0,45,45 
1250 DATA 0,48,91,76,57,58,0,37,50,0 1610 DATA 0,0,68,0,45,91,0,91,45,0 
1250 DATA 8 "32,45, Ö, 0, Ö 0,0, 0,0 1520 DATA 0,0,58,0,45,45,71,0,45,45 
1270 DATA 18, 32,0,0, a5, a5, 40,45,97/,40 1550 DATA 8,0,58,0,33,0,33,0,-1 
1300 DATA 0,0, 68,0,45,45, "RN „0,45, 45 10000 DIM R#(24) „B#(BB) „3# (88) 


10010 RESTORE 110004FOR I=1 TO Z241READ AıR$tI,1I=CHRS$ CA) NEXT I 

= ' 10020 RESTORE 111001FOR I=1 TO BBIREAD AıBsti,TDI=CHRELA)LNEXT I 

| 10030 RESTORE 115001FOR I=1 TO BBIREAD AıSstI,I)=CHRFLANINEXT I 

10040 C=Bı RETURN 

11000 DATA 40,1,20,40,40,1,20,0,40,0,0,0,0,0,0,0,40,1,20,40,40,20,20,20 

11100 DATA 110,0,0,0,146,0,0,0,110,0,0,0,115,0,0,0 

11110 DATA 129,0,0,0,176,0,0,0,197,0,0,0,128,0,0,0,145,0,0,0,197,0,0,0 

11120 DATA 110,0,0,0,161,0,0,0,182,0,0,0,137,0,0,0,161,0,0,0,110,0,0,0 

11130 DATA 122,0,0,0,161,0,0,0,182,0,0,0,122,0,0,0,137,0,0,0,182,0,0,0 

11500 DATA 136,109,71,108,126,108,91,108,136,108,91,109,217,173,144,173 

11510 DATA 162,128,109,162,162,128,109,162,243,193,162,193,243,193,162,193 

11520 DATA 182,144,121,144,182,144,121,144,136,108,91,108,204,162,136,162 

© | 11530 DATA 230,182,153,192,173,136,114,136,204,162,136,162,204,162,136,162 
' 11540 DATA 153,121,102,121,153,121,102,121,230, 182,153, 182,230,182,153,192 

11550 DATA 173,136,114,136,173,136, 114,136 


vn a. un ae 

u = 12). BE 7 = 7 705 705 050205 0002 00502 0 2 2 2 202020. 

2 REM * MONBETUMAS REVENGE # 

5 REM #**= BY KEMAL EZCAN! "++ 

4 REM HHHHHHH 

10 PABE=1401DIM D#1400) ,„C# (21) ,CIO#(42) ,F# (20) ı DE t1)=" "ıDEtA00)=" "ıbstZ)eDsırA ’ 
ı  RBEe22 

'& ‚, 12 RESTORE iSıFOR I=1 TO 424READ ArsCID#LI,IDI=CHR#(A)TNEAT I 

+ 15 DATA 104,104,104,10,10,10,10,170,104,104,157,55,5,104,157,689,3,104,157,88,3 

' 4& DATA 104,157,73,3,104,157,72,3,32,96,228,169,0,133,213,189,67,3,133,212,9& 

ER 30 GOTO 4000 

50 REM NNIGEBLEIFS 

i20 FOSITION 0,017 #55D$ıLOCATE 5TX,5TY,HıKEY=0: COLOR 215ı1FLOT B8TX,8TYıX=8TkıYy=6 

| TY:CTR=0 

on ., 150 REM EFIELHESTPUAH 





155 CTR=CTR+HlılIF CTR=LEVEL THEN CTReöıDEAD=DEAD+LI IF DEAUD=2 THEN DEAD=0 
156 SETCOLOR 3,0,DEAD#S | 
© | 180 POKE 756, POKıPOK=POK+41 IF POK>PAGE+12 THEN POK=PAGE | 
170 ST=STICKtO)ı IF ST=15 THEN FÜR Wei TO 20:1NEXT W | 
480 IF ST=il AND X>0 THEN GOSUB 1000:180UND 0,0,0,0 
@ , 490 IF 8T=7 AND X<17 THEN GOBUB 1100180UND 0,0,0,0 Ä 


; 200 IF 8T=14 THEN GOSUB 1400:S0LND 0,0,0,0 
© ! 210 IF ST=13 THEN GOSUB 1500:150UND 0,0,0,0 er 
: 220 IF 8TRIG(O)=0 THEN GOSUB 16004C0LOR CHSIPLOT X,Y | 


= == - = m 
[N — — m U ri - —g——— — — m — | — 
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m Pe 2 5 SL na] 
1. 980 IF X=Al5X AND Y=AusY THEN 7000 u ... 


| 
| 785 IF PEEK(53279)=& AND GAME=0 THEN 10000 rn 
787 GOSUB 1200:S0UND 0,0,0,0 1 

© 990 G0TD 150 

| 1000 REM LEFT? 

u * 1010 LOCATE X-1,Y,Z 

u 1020 IF Z=204 OR Z=110 OR Z=11i1 OR Z=208 THEN 5000 
| 


1030 IF Z=32 OR Z=101 OR Z=232 OR Z=58 THEN COLOR HıPLOT %,YıXk=k-1ıCO0LOR 2141PLO 
Pr T X, YıSOUND 0,100,8,101ıH=Zı RETURN | 
F 1040 IF Z=113 OR Z=210 DR Z=115 OR (Z7=84 AND KEY=1) THEN COLOR S2ıPLOT %-1,YıG0T | 
0 i050 a 
1045 RETURN | 
1050 REM GEGENSTAND GENOMMEN? 
1057 POKE 708,FARBE . 
1050 IF Z=210 THEN FOR I=15 TO 0 8TEF -iı50UND 0,100+1,10,1150UND 1,110+1,10,IıN | 
EXT IıP=P+100 | | 
1070 IF Z=115 THEN FOR I=15 TO 0 STEP -1180UND 0,1,10,IıS0UND 1,1+10,10,IıNEXT I 
ıPeP+2501 KEY=i 
1080 IF Z=113 THEN FOR I=0 TO iSı580UND 0,1,8,IıNEXT IıB0UND 0,0,0,01P=P+30 
| 1050 IF Z=84 THEN FOR I=i5 TO 0 8TEP -iı80UND 0,20-1,12,Iı SOUND 1,30-1,12,1ı NEXT 
 aP=ePf+2501ı KEY=1 
| _ ı 1080 IF Z=113 THEN FOR I=6 TO 15:150UND 0,1,8,1ıNEXT IıSOUND 0,0,0,0:P=P+50 
h 1090 IF Z=84 THEN FOR I=si5 TO 0 STEP -LıS0UND 0,20-1,12,1I:80UND 1,30-1,12,Iı NEXT 
IıP=P+100 
10952 POSITION 8,2217 #51ıP 
1095 RETURN 
1100 REM RIGHT? 
1110 LOCATE X+1,Y,Z 
1120 IF 7=204 OR Z=110 OR Z=ei1i1 OR I=208 THEN 5000 
1130 IF Z=32 OR Z=101 OR 1=232 OR Z=98 THEN COLOR HıPLOT %,YıX=ek+liCDLOoRr 213: PLO 
T X,YıSOUND 0,100,8, 101 H=Zı RETURN 
1140 IF ZI=113 OR Z=210 OR Z=115 OR (Z=84 AND KEY=1} THEN COLOR 32ı1PLOT X+1,Yı6OT | 
0 1050 | 
1145 RETURN | 
1200 REM DOWN? 
1210 LOCATE X,Y+1,ZıFl=0 
1220 IF H=997 OR H=100 OR H=101 THEN 1240 
17785 IF Z=32 OR (H=99 AND (Z=78 OR I=32)) OR (Z=233 AND DEAD=0) THEN FLei 
1228 IF FL=i THEN COLOR HıPLOT %,YıY=Y+1:COLor 215:PLOT X,YıSOUND 0,Y#10,10,10:5 
DTO 1210 
1230 IF Z=e204 OR Z=110 OR Z=1iil OR Z=208 OR (H=232 AND DEAD=1) THEN 5000 
1240 IF Z<>198 AND Z<>19797 THEN RETURN 
1250 LOCATE X,Y,A:COLOR HıPLOT X,Y 
1252 XR=-iı IF Z=178 THEN XR=i 
1255 LOCATE X+HR,Y,Z 
1254 IF (Z=32 OR Z=101 OR 7Z=98 OR Z=232) AND X+XR>O AND X+XR<1? THEN X=X+XRı LOCA 
TE X,Y,H 
1257 COLOR AsPLOT %,Y 
1258 RETURN 
1400 REM HOCH? 
1405 IF Y=0 THEN RETURN 
1410 IF H<>97 AND H<>100 AND H{>101 THEN RETURN 
1420 LOCATE X,Y-1,Z | 2 
| 1430 IF 2<>77 AND Z<>100 AND Z<>101 AND 2<>32 THEN RETURN 
| 1440 COLOR H:PLOT %X,YıYyeY-1:ıH=sZıCOLOR 215ıPLOT %,Y:SOUND 0,50,8,10 
| 1450 RETURN 
| 1500 REM RUNTER? 
1505 IF Y=17 THEN RETURN 
1510 LOCATE X,Y+i1,Z ai 
| 1520 IF 1<>32 AND Z<>100 AND Z<>101 AND Z<>97 THEN RETURN 
| ' 4530 COLOR HıPLOT %,YıYyeY+liH=ZıCöLor 215:PLOT %,YıSoUnD 0,50,8,10 
‘ 1540 RETURN 
1500 REM JUMP 
1810 FOR I=200 TO 0 STEP -10:150UND 0,1,10,10 
1520 ST=5TICKtO)ı IF Y=0 THEN RETURN 
1530 XR=0: CHE=215 
1540 IF ST=11l AND X>1 THEN XR=-1:CH5=214 
1850 IF 8T=7 AND %X{i1B THEN XR=s11CHS=213 
1650 LOCATE X,Y-1,Z7 | | 
1870 IF Z=45 OR Z=1978 OR Z=197 OR Z=10& OR Z=107 OR 7=204 OR ZI=205 OR (Z7=232 AND 
' DEAD=1) THEN RETURN e | 
‚ 1680 COLOR HıPLOT %,YıYrer-11H=Z:ıCOLOR CHSı PLOT X,Y 
16970 FOR I=150 TO 100 STEP -10:50UND 0,1,10,1/101NEXT I 
1595 IF H=100 AND KXR=0 THEN RETURN 
1700 COLOR HıPLOT X,Y:LOCATE X+XR,YıZ 
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1710 IF Z=45 OR 7=198 OR Z=197 OR Z=10& OR Z=107 OR Z=204 OR Z=205 OR (2=232 AND | = 
DEAD=1) 
1720 COLOR HıPLOT X,YıX=X+XRıH=Zı COLOR CHS:PLOT X,Y 
1730 FOR I=i100 TO er STEPF -10ı150UND 0,1, 10, 1/101NEXT I 


THEN RETURN 


1740 LOCATE X+XR,Y#+1,Z 
1750 IF Z=55 OR 71-198 DR Z=197 OR Z=10& OR Z=107 OR 1=204 OR I=205 OR (Z=232 AND 


DEAD=1) THEN RETURN 


1780 
1770 
1780 
Sso00 
5005 
5010 
Ss0z0 
3030 
s000 
„28 

6005 


C$=" 


COLOR HıPLOT X,YıXaX+XRı YaY+tıH=Zı COLOR CHSIPLOT X,Y 

FOR I=50 TO 0 STEP -1CıSOUND 0,1,10,1/10ıNEXT I 

GOSUB 12001 RETURN 

REM KAPUTT 

POP ıPOP ıPOP ca | 

COLOR 21&4PLOT X,YıFOR I=15 TO 0 STEP -iıS0UND 0,100-1#2,8,I:NEXT I 
COLOR HıPLOT X,Y 

GOTO 10000 Y); | | 
GRAPHICS 171SETCOLOR 0,0, 101 DL=PEEK (560) +PEEK (561) #256+71 POKE DL,FIPOKE 709° 


Abede ik no gq sT":0#17,7I=CHR$ (198) ı CE (8, BI SCHRF LI FI CH 9,9) =CHRE 


(232): C# (10,10) =CHR# 1255) 


[- 18/7) 
210) 
&010 
020 
5030 
6050 
[= 1a 7-18) 
&070 
&080 
7000 
7005 
7010 
7020 
190006 
10010 


C#(13, 3) =CHR$ (204) ı0# (14, 14) =CHR$ (205) ı C$ (17,17) =CHR# (208) ı C# (19,19) =CHRE I 


POSITION 0,017 #44 Pa? #63? #6:7 #6 
va !-] Bu 
7 Br Mh 

7 #6) "PRESS SELECT TO EDIT" 

IF PEEK (S3279)=4 THEN GAME=11ı60T0 50 

IF PEEK (53279) =5 THEN GAME=0:1G60TD 10006 

GOTO 3050 

REM BESCHAFFT 

POP ıPOP ıPOP | 

FOR I=15000 TO 0 STEP -200:50UND 0,1,10, 1/1000: NEXT I 
GOTO 10000 


monsetumas revenge"ı? #61? #517 #6 


REM GAME EDITOR | | Be - 
GRAPHICE 17ıPOKE 756, PAGEISETEOLOR 0,2,6:SETCOLOR 1,0,14:SETCOLOR 2,3,8:8E 


TEOLOR 3,0,6 


CH&E=1 1 X=01 Y=018P=1ıPOK=PAGE 

POSITION 0,017 #51 D&ı LOCATE X,Y,HıCOLOR 109ı PLOT A,Y 
REM MAINLODOP 

SPeyYa2Ork+i 


 FOKE 755, FOKıFOk=PFOKk+4ı IF POK>PAGBE+12 THEN POk=PAGE 


IF PEEK(53279)=3 THEN FARBE=PEEK (70B) ıFARBE=FARBE+ZıIF FARBE>ZS6 THEN FARBE=O 
POKE 708,FARBE BER 
ST=STICK(O)ıIF STS>1S THEN COLOR HıPLOT X,Y 


IF ST=1i AND X>0 THEN X=X-lı6P=8P-1 


IF 8T=7 AND X%<17 THEN X=K+1ı5F=6P+1 

IF ST=14 AND Y}>O THEN Yey-115P=5P-20 

IF ST=13 AND Y<17 THEN Yey+lı5P=5P+20 

51T7>13 THEN LOCATE %,Y,HıECEOLOR 109% PLOT %,Y 

IF STRIG(O)=0 THEN D# (EP „SP})=C# (CH3,CH8} ı H=ASC (C# ICHS ,CHS5)) 


| IF PEEK(7&4)=255 THEN 10050 


A=PEEK (7564): POKE 754,255ı1FOR I=ei4 TO 0 STEP -2:50UND 0,A,10,I:ıNEXT I 
IF A=47 THEN 5000 
IF A=42 THEN AlSk=kı AUSY=Y 


) IF A=18 THEN CHS=CHS+LılF CHS>21 THEN CHS=1 
> EOLOR ASCIEFICHSE,CHSEIHIPFLOT 0,23 
’ IF A=52 THEN STX=Xı5TYeY 


IF A=54 THEN D#il)=" "ıD#t400)=" "ıD#ki2)=eßfıh=32: FOSITION 0,017? #51D#:160T0 


10050 


10210 


IF A=354 THEN AsASC ICH iCcHS,,CHS)) ı DE LI) SCHR& (A) 1 DE (400) SCHRE (A) ı DE (2) =D HA 


ıFOSITION 0,017 #55 D#:60T0 10050 


10214 
10218 
10220 
10500 
10310 


10320 7 


10330 
10340 
10350 
10350 
10370 
10380 
10370 


IF A=45 THEN P=01G0T0 120 - 
IF A=5a THEN FARBE=PEEK (708) 16070 10300 

GOTD 10050 

REM DISK OPTIONS 

? #64 CHR$ (125) 1 POKE 756,2241POKE 708,15 

#5)" DISK OPTIONB"ı? #617 #617 #6 

? Möl"Lı’ LOAD SCREEN" 

? #6) "8ı - SAVE SCREEN" 

? #6) "Dı * DIRECTORY" 

7 #6) "Eı EDIT" 

POKE 764,255 

A=PEEK (764) 

IF A=42 THEN ? #41 CHR (125) ı POKE 756,PAGBEıPOSITION 0,017 #4; D#ıPOKE 708,FA 


RBEıPOKE 784,255:6070 10020 


10400 


IF A=0 THEN EOSUB 10500:50T0 10700 
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10410 
10420 
10430 
10440 
10450 
10450 
10470 
10480 
10500 
40310 
10520 
10525 
10530 
10540 


IF A=42 THEN GOSUB IDSGORSOTT 106800 

IF A<>58 THEN 10380 

? #61 CHRF (125) ı Y=9ı TRAP 10470 

DPEN #1,5,0,"Dı#.#" 

INPUT #, F#ıPOSITION 0,Yı? #1 F$ıY=Y+lılIF Y<1? THEN 10450 
7 BE; CHRS (125) ı Y=0160T0 10450 

TRAP 400001 CLOSE #11 IF PEEKI754)<>12 THEN 10470 

GOTO 10300 2 
POSITION 0,19:7 #53 "NAME: m 
OPEN #1,4,0,"Kı "ıBP=3ıXP=5 

GET #1,Aı IF A=155 THEN CLOSE #1:60T0 10550 
IF A=27 THEN CLOSE #1ıP0OP ı6G0TD 10300 

IF A<ö5 OR A>F0 THEN 10320 


"ıFOKE 744,255 


POSITION XP,19ı1?7 MEILEINGE SRNEREISI ES LEER TOR SS SEEN Re SP>10 THE 


N SPeidıXP=XP-1 


10550 
10540 
10570 
10700 
10710 
10720 
10730 
10740 
10800 
10810 
10820 
160830 
10840 


' 10 SYSS8448: POKES6879 ‚B: Af=" 
= 

15 PRINT" 4 

20 PRINT"ERIE ." ASAS" 1 EA R" ASAF" = DIN Eue 

25 PRINT" 

30 Bs="r 

40 BF=RIGHT$ (B$,59) +LEFT$ (BF, 1) : PRINT" ap 


GOTD 10529 

F#i1,2)3="Dr" 

RETURN 

REM LOAD SCREEN 

TRAF 10740 

DPEN #1,4,0,F$ı1BET #1 ,AUSXIıBET #1, AUSYıGET #1, STXıBET #1,5TYıBET #1 ,FARBE 
AMUSRADRICIOS), 1,7, ADR(D#) „400) 

ELDSE #11ıTRAP 400001 G0TO 10300 

REM SAVE SCREEN . 

TRAP 10840 

OPEN #1,8,0,F$ıPUT #1,AUSX:PUT #1,AUSYEPUT #1,5TXıPUT #1,5TY:ıPUT #1,FARBE 
A=USR(ADRICIOF) „1,11, ADRID#) „400) 

ECLOBE #11 TRAP 40000: 8010 10300 








:FPRINT"LIE A FE "Ar" 

ii BREAKOUT Ka HERE Bis" As" nn BB TE" AS if "CHRE (8) 

| SELELT LEVEL 
SF-1M BEGINNER F-2e ADVANCED 

84 BY MICHAEL KRAUS CREATIVE COMPUTING SOFTWARE " 

KRLDBI"LEFTS(CEE,20) 








(CC) 





100 FORT=1iTDO706:NEXT:GETCH 


102 


IFCt="B" THENS=&:0=2:K=120:X=130:60T0110 
IFC$="S" THENS=-5:0=1:K=120:X=130:60T0110 
IFCH="8@" THENS=4: 0=1:K=180: X=170:V=1:60T0110 


105 GOTO40 


110 FOKE358797,110:POKE35878, 
PRINT"BALLS: "S" | 
150 FOR@=7746T081425TEP22: POKEQ, 77: POKEO+21 „225: NEXT: FORB=S8884T038705:FOKEB, SzN 


150 


ISEPRINT"BLKSCORE: 0 LEVEL: 1" 


MINUS: Mi" AEAE 


GOSUBB000: FORQ1=83IT09F02: READU2: POKEUL „B2: NEXT: W=36878: L=1:UV=40:FOKE7EL,10: 


same 


 B=INT {RND (1) #20) +8155: C=INTIRND (1) #2) #2-23 


300 FORY=1T00:SYSBS3:NEXT 
315 POKEB,32:POKEW,O 
330 B=B+C:IFPEEK({B} >81THENSO00 


IFB>B185STHENSOO 


sso FOKEB,Bl: IFFEEK (B+22) =2264THEN&000 
350 GOTO300 


S5=5-1: IFS=-1THEN25009 


-— a — a5 ae ee 
. er Bee ® Erin AH ee 


wF-38 EXPERT" 
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510 PRINT"EIN3"SPC (6) 5: FORRT=Z10TO160STEP- 10: POKEW RT: FORT=OTD60: NEXT: POKEW,RT+10 


nr re Pulse Ten ee bee oe m 
ie mul en ze Zr in In er P, + Pius en hen Tirz.. 
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, 545 FORT=0T040:NEXTT,RT:GOTO200 ‚ H 
' 5000 IFPEEK(B})=227THENTOOO | . . 
=005 IFPEEKE.{B)=?2SANDC<S-ZOTHENB=B+21:C=-25: POKEN „239: GOTOSSO 
' 5010 IFPEEK(B) =225THENB=B-25: 0=21: POKEW,, 2359: G0OT0330 
, 5020 IFPEEK (BI =FTANDE<S-Z2THENB=B+23: C=-21: FOKEN „2397: 6070330 
| ) 5050 IFPEEK (B) =97THENB=B-21:C0=23: POKEW, 239: 6070330 | | 
= ı 5050 IFFEEK (B) =F8ANDC<-22THENB=B+23:C=21 | 
' 5070 IFPEEKtBI=FBTHENB=B+21:C=23 | 
| _ 1.5075 POKEW,243:6=6+1: IFG=1OTHENPOKEW, 210:E=E-10:K=K-10:6=0: PRINT "ERBRRERI"E" N " 
; W 5080 FRINT"ERBINRI'G:GOTOSSO0 
' 5000 POKEW,234 
I®.,. &020 IF =?3THENIFFEEK (B+21)=T2ORPEEK (B+23)=32THENC=-21:6070315 
ı 5050 IFPEEK tB+23)=320RPEEK (B+21) =32THENC=-23:GOTO315 
| _ , 5200 IFC=23THENE=-21.5:6070315 
#1 5300 IFC=S21THENC=-?72.5:60T0315 


TE u en am Tu 
m 


N ; 5500 GOTO3S15 

|. ' 7000 POKEB,81:POKEB+30720,1:E=E+1:6=0: PRINT" ERPPPEBIS"E "EITAmEI"G: IFE=KTHEN20000 

ı = | 7200 IFE/200=1NT (E/200) THENS=S+1:PRINT"ERBRRRERI"S"B ":FORQO=10070240: POKEW, Dr NEXT 
7300 POKEW, 247: IFC{-22THENC=21: 6070315 

' 7400 IFC=-Z10ORC=-21.5THENC=23 

:' 7500: G0T0315 

| 3.8000 Age" PRINT ERBE "AS" AS" Ar 








| ei 3010 PRINT"ER"AF'IBE" AF'ERE" Ar" a" 

8070 IFVTHENFRINT"BEN"AS"IRB" Ar"g" 

= . 8050 IFL{ZTHENRETURN 

' + .8050 IFL?ZTHENFORU=1TOL/Z-.5: FOKES45,RND 1) #4: PRINT" B"AF: NEXT 

ı 7 8040 IFL/2=INT {L/23 THENPOKES46 ,RND (1) #5: PRINTTESW U U H UN WETE"" 
BlüO0 RETURN 

B500 IFL=FTHENSOO00 

hp 8510 L=0:PRINT"B"SPC (13) "d# HIGH #": SOSUB2 1000: GOSUBB000: K=K+X+17 

|” , 98520 FRINT"LUORBBBZT TE Eur ER DIT DI ER ar a Dan Tan Ku aa " 
| 8550 FRINT'IBERBEBRLK II TH ET U ar": -8: GOTO200 


| ® ‚, 10000 DATA174,44,3,169,226,154,197,192,41,240,8,192,42,240,29,142,64,3, 76,224 
| 10100 DATNO,240,248,202,157,228,31,157,229 31,157 ,230,31,157,231,31,169,32 
| _ , 10200 DATA1S7,232,31,24,144,227,224,198,240,2253,232,157,228,31,157,229,31,157 
| = ' 10500 DATAZ30,31,157,231,31,169,32,157,227,31,24,144,202,0 
| 20000 POKEB,81:FOR@=130T0245STEPS: POKEM,B: FORT=0T035: NEXTT,O 
| o ' 20070 FORU=245T0D1505TEF-10: POKEW „GO: FORT=0TD20: NEXTT,Q 
" „ 20100 FOR@=1T03: FORD=150T02455TEP10: POKEW ,D:FORT=0T020: NEXTT,D 

' 20200 FORD=245T0150STEF-10: POKEN,„D=:FORT=S0T020:NEXTT „D,B=L=L+1: IFL>7THENBSOO 

| ® ; 20300 kK=k+%: X=X+10: PRINT" Ba"SPC (19)L:GOSUB21000: GOSUBB000: 6070200 
21 SCHAUT Eiserne WELL DONE Dmpbeppppprnnnnnen* 

| 
| 
| 
| 
| 
| 
l 






Z1020 FOKEW,O: UV=UV+10: PRINT" EREBBLTI BONUS: "UV" FOINTS DD uns 


21040 PRINT"ERBERE) FREFARE FOR NEXT PRRB LEVEL ":FORT=1T03000: NEXT 
21050 FORU=7812T08975: IFPEEK{U)I< >32ANDPEER {U} © >F7ANDPEER (U}% >225THENPOREU,S2 
21050 PÜKEU+30720, 1:NEXT:E=E+lW VW: K=k+UV: RETURN 
25000 FORD=213T0139STEF-5: FOKEW,D: FORT= OTOS0: BENEL: D:FORT=O0TO3S00:NEKT 
30000 FORT=0T0300: NEXT: PRINT" ERRRREDTETT 1) 

E DWER]" 

31500 POKEW ,O:PRINT"BRREBIS AGAIN -7—" 

32000 POKE35B55, 38: FORT=0T080: GETAF: IFAF="\Y" THENRUN 

32250 IFA#="N"THENEND 

32500 NEXT: POKEZ5855 , 255: FORT=0T0500: NEXT:GOTO32000 





a —— "PRINT" ERBERb]E | GAM 


_ 108 IFJ=11BTHENF=1260T0 600 
603 6070 12002 
602° NEXTSPOKEP-2; 160: POKEB089 „32: POKEP-2,0: IFF=1THENF=0:60T0 1200 


12001 FORN=E09ATNBOROSTER-. 2: POKEN, 19: POKEN+FZ „6: POKEN+ „32: JPEEK(I0-HHIFI=118 
THEN&00 | | MER = 
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Um ein bestimmtes Byte in einem Ma- 
schinen-Programm zu finden, hat der 
#80-Mikroprozessor einige besondere 
Befehle, Wird aber mehr als ein Byte 
gesucht, das auch noch in einer Folge 
stehen soll, so stößt man an die Grenzen 
der Routine, In diesem Fall wird trotz- 
dem nur ein Byte gesucht und anschlie- 
Bend ins BASIC zurlickgesprungen. Was 
gebraucht wird, ist ein Programmiteil, in 
den die Anfangsadresse, die Anzahl der 
zu vergleichenden Byies und die Ver- 
eleichsadresse frei eingegeben werden 
kann. 

Diese Suchroutine in BASIC geschrie- 
ben beansprucht aber einen gewissen 
Zeitraum für die Ausführung. Deshalb 
wird ın diesem Programm, für die Suche 
und den Vergleich ein Maschinenpro- 
gramm eingeseizt, welches den Zeitauf- 
wand verringert. Nach dem Start fordert 
das BASIC-Haupiprogramm dazu auf, 
die Suche zu starten, die Anzahl der zu 
vergleichenden Bytes und die Anfangs- 
adresse des Vergleiches einzugeben. Sie 
müssen also die Byiefolge kennen und 
sie in einen freien Speicherbereich able- 
gen. 

Als Ausgabe erhalten Sie, wenn alle By- 
tes gleich sind, die Adresse, an der diese 
Routine in einem Maschinenprogramm 
steht. Sollte die Suche erfolglos bleiben, 
nicht alle Bytes sind gleich, so erscheint 
als Ausgabe die Ädresse an der der Ver- 
gleichsstring steht. Handelt es sich bei 


_Byte-Suchaktion 


ZX-81 





der Zahl 65535 um die Ausgabe, so war 
die Anzahl der zu vergleichenden Bytes 
mit Ü oder aber größer als 255 eingege- 
ben worden. 


Programmbeispiel: 

Wer kennt nicht den vorprogrammier- 
ten Ärger, der entsteht, wenn man ein 
Maschinencode-Programm, das RÖM- 
Routinen enthält, umschreiben muß? 
Besonders Umsteiger von einem Com- 
putersystem mit Z80 CPU auf einen 
neuen Rechner mit Z-80 stehen oft vor 
der Frage, wo nun die Routine im 
„NEUEN“ ROM steckt. Es bleibt 
scheinbar nur der Vergleich der RÖM- 
Inhalte als Lösungsweg. Mit dem hier 
vorgestellten Programm ist jedoch der 
Rechner für die Suche geeignet. 

Damit der Computer die Arbeit aufneh- 
men kann, muß der Vergleichsstring im 
RAM stehen, Dies setzt voraus, daß Sie 
die Bytefolge kennen. Hier wird der Le- 
ser erkennen, daß sıch die Suche nicht 
nur aufdas ROM beschränkt. Besonders 
der gesamte Speicherbereich wird dabeı 
durchforstet. 

Dieses Programm ermöglicht die Suche 
und den Vergleich eines bis zu 255 Bytes 
großen Bereiches innerhalb von Maschi- 
nenprogrammen, in Texten und in be- 
stimmten Systemvariablen. 

Das Maschinen-Programm läßt sich auf 
jeden Z-80 Rechner übertragen. Dafür 
bedarf es nur der Änderung der Ein- 


sprungadresse und des Datenbereiches. 
Wird ein anderes Registerpaar als das 
BC für den Rücksprung der USR Funk- 
tion geladen, so braucht nur der Lade- 
Befehl vor dem RET am Ende des Pro- 
eramms geändert werden. 


Nun zur Eingabe des Programms: 

Es wurde für den ZX/81 ein REM Befehl 
mit Freiraum gewählt, um auch den 
Vergleich aufnehmen zu können. Es 
kann auch einen anderen Bereich bele- 
gen. Damit benötigt die REM Zeile nur 
noch 6 Leerplätze. Die Einsprungsadres- 
se ıst dann neu anzupassen sowie das 
Eingabeprogramm für den Vergleich. In 
dem vorgestellten Programm lıegt der 
Einsprung bei 16520 und der Anfang des 
Vergleichs, wenn er neu geschrieben 
wird, bei 16620. Nach der Eingabe des 
Listings „SAVE"n Sie es auf Band. Der 
Start des Programms ist in der PRINT 
Anweisung enthalten, die nach dem La- 
den erscheint. Bei der Eingabe des Ver- 
gleichs sollten „CALL*-Aufrufe und ab- 
solute sowie relative Sprünge nicht ent- 
halten sein, da diese an feste Adressen 
gebunden sınd. Das gılt aber nur. für 
ROM Vereleiche. 

Zur Veranschaulichung auch hier ein 


Beispiel: 

ZU bei Spectrum beı 
I0D5H 275BH 
LDA‚E LD A.E 

KOR (IY+1) KOR (IY+1) 
AND 40 H AND 40H 
JP NZ, 0D9A IPNZ, IC5A 


An diesem Beispiel kanın man erkennen, 
daß das Spectrum ROM nur ein „VER- 
BESSERTES" ZX/8] ROM ıst; viele 
Routinen sind gleich. 
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EREEPEPEIRRREhRIH TRETEN 


0 PRINT AT 8,0; "STARTEN SIE D 








Er PERtertphperetetetstergfetsfenfetstitehetetetefe) | ee ällalilän zum‘ ERSTEN MAL HI | 
ONAIDAKOIEKIOHOHKOLAKEEDBEREOOOO | "| MEN DIE zetlen DEI DEI 
| EREIIDEINDAOH00900ANI00B00090000 2 00 GELÜESCHT WERDEN" | 
= FENENEKERIGERSGEREISTEIEIR KREDRRIE sTslu la ee) Mm | 1- i 
| FRRPRPTERRERERFRRRRRRRRERTEITT TI 640305440FE9038145A2S10F.0050000 
cz uln]ntepsfsfsisjsfsleteinfafnte tn Tu Pa Ta Ta Tata Ten Tan Tu Ten | SBE232DB3AB2DS3R32ED15E1DIFFFFG- \, 
IE nes 75 5 TafsTefr Palo i5 15 Te fe a lofefatnfe Tnfnlaintnletninfe te, u 5 Saassıo 2BSA344 341 700EHSESBAHIABEZ ’ 
Deuaneauasaa2dgnnnengageennegad | " , KBESATZSLSIOFTEDABSZAHDELH" " 
BE TEEEEREERERERPEIEERERRERRERRERR | 50 FÜR N=16520 TO 16589 | 
we 10 REM ###+#+#4#4 HH HH Heer Ei 2a BOKE N. IB er ae 
# * ru = 
| he re IDE Asa) -28 | 
u en, 3 : Fe 38 NEXT N Ä 
Ing ER el re : 9: 198 PRINT AT 19,5; "EINGABE VERS | 
DER : AUMUNDER FELDST.7O * I Ne | 
@! ; Fi a 40 TEEN HN, res, | 
Bad = TEL.QABI/CSS008E = an ee 
l + + an 1a 
en Saar \ 105 LET B=16514 | 
E | Al REN ahssasarasstrasıränekee o | Aid PRINT "SUCHEN von mDREssE 
| = PRORRAM ; | d20 GOSUB 1909 | 
ie Br SU RODLSERERZBERTE „138 PRINT "ANZAHL DER BYTES | 
| ie I j + u Sa i - nt | 
FR : = : 140 GÜSUB 1900 | 
| 5 : "BETTESSUCHE" : en: Fe, ERERFHETF Mi 
& ESS LLLLES ZELLE SE III 
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eier 


Ein Siel für Leute, m 
die Elfenbeinkugel 
beherrschen 


(WL.K.) Bei diesem überaus interessan- 
ten Spiel ist Ihre Spielstärke, Schnellig- 
keit, Geschicklichkeit und Ihr Ballge- 
fühl gefragt! Das ist was für Billard- 
Fans und für solche, die es werden wol- 
len. Holen Sie sich doch einfach „Ihren 
eigenen Billard-Salon in die gute Stu- 
he*! 


Nach dem Start des Spiels erscheint zu- 

nächst das Titelbild. Sobald das Titel- 

bild fertig aufgebaut ist, erscheint nach 
dem Drücken einer beliebigen Taste das 

Spielfeld. Danach wählt man mit dem 

Joystick £ | das Loch aus, in das der 

Spielball gespielt werden soll. Die Aus- 

wahl erfolet über lınks/rechts. Ist das 

Loch gewählt, so drückt man auf die 

Feueriaste. Das Loch wird nun gelb 

markiert. Es erscheint der Spielball und 

das Kreuz zur Richtungsabfrage. Nun 
wählt man mit dem Joystick die Rich- 
tung. Anschließend drückt man wıeder- 
um auf die Feuertaste, und unten links 
erscheinteine schwarze Zahl. Jetzt wählt 
man mit dem Joystick links/rechts die 

Schußstärke von 1 = langsam: 8 = am 

schnellsten aus. Ist die Schußstärke ge- 

wählt, so drückt man erneut die Feuerta- 
ste, Jetzi wird die schwarze Zahl und das 

Kreuz gelöscht, und. der Spielball bewegt 

sich in gewünschter Richtung und Ge- 

schwindigkeit. 

Falll) Rolltder Ball'’aus, so muß die 
neue Richtung und die neue 
Schußstärke gewählt werden. 
Der Spielball bleibt dabeı auf 
der Stelle liegen, wo er ausgr- 
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rollt ist. Die Punktzahl wird 
dabeı nıcht erhöht. 

Läuft der Ball in das falsche 
Loch, so wird der Ball wieder 
an dıe Anfangsposition gesetzt, 
und die Richtung und Ge- 
schwindigkeit muß neu ge- 
wählt werden. Die Punktzahl 
wird dabeı nicht erhöht. 

Läuft der Ball in das richtige 
Loch, wird zunächst geprüft ob 
mindestens eine Bande berührt 
wurde. Wenn dies der Fall ist, 
wird der Punktestand mit 20 
multipliziert und man kann 
wieder das Loch wählen. Wenn 
keine Bande berührt wurde, 
geht das Spiel wie ın Fall 2) 
geschildert, weiter. 

In allen drei Fällen wird natürlich der 
Schußzähler um 1 erhöht, 

Wenn das Richtungskreuz genau unter 
den Ball plaziert wırd, dann schützt sich 
das Programm selbständig vor einer 
Fehlermeldung, wenn man neue Werte 
eingibt, 

Die Bedienung ist, da alle Eingaben über 
den Joystick 1 erfolgen, sehr einfach. 
Manchmal kann es aber dazu kommen. 
daß bei zu großer Geschwindigkeit die 
Kugel etwas über die Bande herausr 

da die Abfrage für die Richt 
nung mit-der Se Barmo- 


Fall 2) 


Fall 3} 








7.4 Luder wien En a: Euren 
4 lragine HE wahr 
) net; 


U» 5 


Er 
Pen - 


k . 0: 
I 
en 





schnell wechseln läßt, kommı die 
COINC-Abfrage zu kurz, und ein Tref- 
fer wird nicht registriert. Dieses tritt je- 
doch nur bei größeren Geschwindigkei- 
ten auf, 
Erläuterungen: 
Zeile: 

40- 90 Programmkopf 

100-170 Datas’ für breiten Schrifisatz 
180-210 Datas’ für Sprites und andere 

Grafik 

220-240 Datas’ für den Tisch 


250-770 Lesen der Datas’ und seizen . 


der Färben 

280-300 Titelbild 

310-380 Aufbau des Spielfeldes 

390-430 Abfrage - in welches Loch ge- 
spielt werden soll 

440-470 Abfrage - in welche Richtung 
gespielt werden soll 

480-540 Abfrage der Schußstärke 

530-650 Schuß mit Bandenahfrage und 
Lochabfrage 

660-690 Abfrage ob: richtig eingelocht 
wurde - mind. 1 Bande 

700-730 Subroutine für das Titelbild 





Alle „!" können ersatzlos entfallen. 

Wem der NWormzeichensatz genügt, 
kann die Zeilen 100-170 weglassen, und 
die Zeile 260 wie folgt ändern: 260 FOR 
A=1 TO 133: .. Wen der Vorspame 


(Titelbild) zu lange dauert kan Zei 










|® ı iS PRINT "ANFANG DES VERGLEICH S' vTEsTan .;E® 
| eh ı 370 INPUT RE ' 9 
„| 450 sösus 1000 EB BRINT RL | Br 
RS ERDE N aeagiz von su |; Aa En Be 
i@ ; =08 LET DeuSR 18520 SHE & 130 PRINT As A She) 
Mn ENANTIHTSTORSTESIDRESSE DET |. 438 POKE N,A8#HiCHDE nst-zsHr ," u 
ERLEE- 2 | 1 S0DE A$lan-23 | Ber 
1 280 LET Has, i | 4 458 NEXT N Fe 
' 230 LET H$="8000" Ft ie Korn 1es 
| 240 LET Zeint wis) Bor ee Sue '“*“@ 
Bere Nele | 1  Aaae- PRINT H | / 
' 55a LET 5 5 |. ! 1a20 LET N=INT_(n/2se) ta] 
ı 280 IF 030 THEN soTo 240 | ® ı 1959 Pore B,H-a56#H '@ 
| 1 1040 POKE B+l,m | 
I 268, PRINT AT 29,6; "NOCHMAL "JAN | Bee BETURN ® 
Beate | A080 SMUE "BYTESUCHE" | 
ı 318 INPUT 53 ee ann 
ı 320 IF B$til) cy"U" THEN STOP | @ |! | 
ı 338 CL8 8 | 
ı 348 SöTo 1aa | | 
‚280 © Heute: n 
| 350 PRINT AT 10,5; "ANZAHL DER B = 
SEHE FRI Fehr aet eaHFT Ir BEE EIELSEERN RN Messe epaiis 





Variablenliste und Sprites: rührung mind. I Bande um Richtungsänderung an den 


Punkte zu bekommen (für jede Banden) 

Sprie<1l Spielball Bande 20 Punkte) 

Sprte#2 Richtungskreuz LO Loch (3-8) 3 = links oben; $= Routine für Titelbild: 

Spriie rechts unten £ Zeilein der der Text eingescho- 
 2z+r#% Löcher Z Distanz zwischen <1l und #2 ben wird 

Sprite£9 Sprite für die Schußstärke Y2,X2 Position £ 2 (für Schußrich- WS Text | 

PO Punkte tung) Ss Teil des Textes (Buchstabe) der 

SH Schüsse Y1,X1 Position £ I (für Schußrich- geschoben wird 

I.A Alle. Laufvarıablen lung) 8) Errechnete Spaltenposition für 

B$ Read Variable B Comnc-Abfrage den 1. Buchstaben 

K.,S key-Rückgabevariable VXVY Geschwindigkeit von < 1 AX Laufvariable für die Anzahl 

KY Joyst-Rückgabevarıable YXYY Geschwindiekeitsabnahme-, | der Buchstaben ım Text 

sc Schußstärke (1-8) von] AZ Laufvariable für das Schieben 

BA ?ählvariable für die Bandenbe- PY,PX  Positionsabfrage von & | (für eines Buchstaben 





48 IBILLIARD 5.5 Kst 
SA IRRINER GAHRIKOM er 2 era En 
AB | SOMMERHAUSEN ;15 Ein „spitzenmäßiges" Spiel! 
79 !TEL. 02245/3983 | 
an I5203 MUCH 





{oB SCHRIFT 33-90 
{14 DATA 181B181B1B180918,6L6C6l, ECFEFE6CHCFEFEGT, SCFEDGFLTEIGFESC.CECELESCTBFGE © 
AC6 . TAFEDA7ETECCFE?S, 18182, 1819303039301818, 3830181818183 se 
124 DATA aaaaga1a18,dn18187E7E1LB1H, Bandnngana 1a 82, BuRuHdTETE , Bnaauaahaahn1ele,% 
SRELESCFBFAERT , TEFECEDEFGESFE?C, 1838787818181818, 7CFEBEICTBEBFEFE 2 
138 DATA ?CFEBEICHCHEFETT, LCIC7CECFEFEBCOC , FEFECOFCFEBSFE?E, ?CFECOFCFECSFETC,FEF 
EASAE1C3B38383,, 7CFECBTCTECBFETE ı PCFECGFETEOGFETC. B01B10080R1 818 | 
{4a DATA 091818099918182. O61E7CFOFO7C LIEBE, BA7C7CHaBa?C7C.CarBrCiEIE?CFeC,7CFEBEI 
Eir8B1818,7CFECEDEDEDEDET  387CEECEFEFECECE , FCFECGFCFLEGFEFO 
159 DATA ?CFECBCECBEBFE7C , FOFECSLECECSFEFC, FEFECBFSFBCHFEFE, FEFECBFBFBCOCECR, 7CF 
ECACFLECGFETC .CSCEC6FEFECSCECE, 18181818191B1818, FEFEBEBGBSUGEFE? 
{58 DATA DELEDCFBFEDDGECE GEDBCBLBLBLBFEFE, CBEEFEFEDECSCECS, LBEBEGFEDECECECS, 7CF 
FCENSCHCBFETC FCFECBFEFCCOCHCO, FCFECSCEDECCFETG FCFECGFEFCDCCELS | 
| 174 DATA FCFECHFCFEBSFETC,FEFE181818181818, C6CECECECECEFE?L. C6C6EESC?C3BSBI ,CEOE | 
0 ! TSCADEFEFESC.C6EE?CIB3B7CEETE, CECEFL783030303, FEFEBEICIBTBFEFE 
188 !DATEN FUER GRAFIK 91-111 
199 DATA 304299A1A1994230 , IC7EFFFFFFFFFESC  BRGBLB1BFCIRI,, | 
>88 DATA AgBRBBAGGBREUEFF ‚ GBGBBBBRUARAFFFF ‚ BERAGGBRBEFFFFFF , BERGBGBBFFFFFFFF , OGE 
BAAFFFFFFFFFF ‚BOBOFFFFFFFFFFFF ‚B@FFFFFFFFFFFFFF » FFFFFFFFFFFFFFFF 0 
218 DATA FFFFEFFFFFTESC. BB3C7EFFFFFFFFFF » 387CFEFFFF?ESCLB, ACHEFFFFFFFESCIB, 18307 | 0. 
EFFFFFE?C3R, LBSICTEFFFFFF3EIC. BRGBARIALB, m 
224 IDATEN TISCH 112-124 | = 
ı © . 738 DATA FFFFFFFFFFFFFFFF ‚FOF@FOFOFOFOFOF BFOFGFOFOFOFOFOF  BOGGGBBGFFFFFFFFSFFFF 
| 0% FEFF4 4». IFSFTFFFFFFEFFFF » FBFCFEFFFFFFFFFF»FFFFFFFFFFOF3FIF | 
24a DATA FFFFFFFFFFFEFCFB 
259 CALL CLEAR ©: CALL SCREEN): PO,5SH=B 
26a FOR A=33 TO 123 :: READ 88 :' CALL CHARCA,BSI:ı NEXT A Zn - 
a ' 278 FOR Ast T08 :: CALL COLORCR,16,191:.NEXT A :: CALL COLORC10,16,4,11,7,19,12 | © = 
2 | 
| 2a4 |TITELBILD | 
© : 799 CALL STEXTCB,"R.G. SOFT PRESENTS"):ı CALL STEXTC1Z,">PBILLARDEC" DH: DALL STE ı © oT 
| #Te 16, "TC 85° BY R.GAWRIKOW" ): ı CALL STEXTC24, "PRESS ANY KEY TO START I") | 
„394 CALL KEYC3.K,S3:: IF S=9 THEN 398 | 
©) aid ISPIELFLAECHE | i 
| 328 CALL CLEAR ıı CALL HEHARCS,1,TEL,ABGI: CALL HCHARC 1, 1,1209: : CALL HCHARKI,Z2 


hl 
168 
HR: 


Er 
r 


so! ‚112.399: CALL HCHAR1,32,1219:: CALL HCHARC2,2, 112) '@ 5 
51 33B CALL HCHARC 2,3, 116,289 ı CALL HCHARC2,31,1123:: CALL VEHRRC2,1,112, 1735: CAL ı 032 
3 L YCHARC2.32,112,173:: CALL VCHARC3:2,113,15) | re! a 
ı®: Jan CALL VCHARC3,31,114,1591 + CALL HCHARC18,2,1129:: CALL HCHARS18,3, 115,299: 0 ı © 
2 ALL HEHARC18,31,1123:: CALL HCHARCI9,1,122) | — 
. ' 358 CALL HCHARC19,2,112,399:+ CALL HCHARC19,32,123>9:: CALL HCHARC18,9, 1183: CAL | Ei 
| ® ) L HCHAR« 19,24, 119) Mi 
| 4 369 CALL SPRITEC#3,196,2,12,12,#4, 185, 2,9, 128,45,107,2,12,238) _ Di 7 
=! 37a CALL SPRITECHS, 168,2, 139, 12,#7, 104,2,197, 128: #8, 199, 2, 133,237) | © 
|, 3aa DISPLAY ATC21, 1 BEER: "12345678 SHODTS: POINTS:" »: DISPLAY ATC23,19:"*ab | en 
Bez SEI ETATTERRE RI ee 
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Sp 


' ders Ma Mamaad" 
ı 399 ILOCHABFRAGE Se 
' dad 1.083 ' 


ı 414 FOR Isi T0 59 :: NEXT I :: CALL JOYSTE1,K,Y):: CALL COLORCHLO,2I:: LO=LO+X/4 

' 42a IF LO>8 THEN LO=3 ELSE IF LOX3 THEN L0=8 | 
ı 43 CALL COLORCHLOSLLII: CALL KEYLLSK,SIE: IF K<>18 THEN 418 

\ 44 IRICHTUNGSAEFRAGE 

4sa CALL SPRITEC#1,92,7,73,194) '@ 
468 PA=B ı: CALL SPRITEC#2,99,2,73,128):: FOR I=1 TO 188 :: NEXT I PS 
47@ CALL JOYSTCLAKS VD: CALL MOTIONCH2:-YK2.KK2I:: CALL KEYLKASIT: IF KCHA TH | 
EN 47@ ELSE CALL MOTIONC#2,0,8) -® 
i 480 |SCHUSSSTRERKE 


' Sad CALL JOYSTELKK,YI:: SCHSCHH/4 

‚ 518 IF SC<i THEN SC=8 ELSE IF 5C>8 THEN S0=1 | | 

‘ 578 CALL SPRITEC#9.5C+48,2,161,9+5C%8):: FOR I={ TO 50 ı: NEXT I ® 
; 538 CALL KEYCI,K,SI:: IF K<>1B THEN 586 

' 54a CALL DELSPRITECHS> 

, 559 ISCHISS 

' 569 CALL POSITLONCH2,Y2.KZHLAYISKLDS: SHRSHHL ı: DISPLAY ATC23, 12ISIZECG)BEEP:U 
SING. "He SH 

57a CALL DISTANCEC#HI#2,ZI:: VRSC-MIHKZI/SORCZIRSKSE 1 VYec-VlrV2 7 SORCZIKSFSC 
iı IF ABSCYX)>IGA DR ABSCWY)>iaR THEN 468 Ä 
; Sad FALL DELSPRITEL#2I:: VA=SABSCVN/4AI:: YY=ABSCVY/4O) M 
538 CALL MOTIONC#HL,VYYVKD: CALL COINCEALL,BI:: IF B=-1 THEN 678 
san CALL COINCCHL,#L0,8,B):: IF B=-1 THEN 670 . 
sid CALL POSITIONCHL,PY.PKRI: IF (VY>@ AND PY>127-ABSC VY/2))ORCVY<B AND PY<i7+AB | ” 
\  SCUVZIITHEN YYa-yY 1: BABBA+H :: CALL SOUNDG-28, 118,0) i 

' 6828 GALL COINCCALL,BI:: IF B=-1 THEN 6746 ELSE CALL MOTIONCHLVYVKD '® 
‚ 63a IF CVM>a AND PX>232-ABSC VR72 )IORCVASB AND PRÄLF+HABSCVK/ZIITHEN VR=-VK 1 BA= ı 
PA+I :: CALL SODUNDC-28, 118,8) Ni 
ı Ada CALL COINCCALL,BI:: IF B=-1 THEN 678 ELSE CALL MOTIONCHL,VY,VKD ı ® 
65 VEN PYKSGNCVYIi N VXEUK-YKESGHEVRIT: IF INTEABSCYWYID=B AND INTCABSCVRII=B T | 
ı HEN CALL MOTIONC#1,9,89:: GOTO 468 ELSE 688 we 
664 NEINGELOCHT ? | Be 
678 CALL MOTIONCML,9,09:: CALL COINCC#1,#L0,8,B3:: IF BC>-1 THEN CALL SOUND-108 | 
‚118,9):: GOTO 458 ELSE CALL DELSPRITE(#L) ® 
538 CALL SOUNDG-1AA, 1000,07: IF BA>=1 THEN PO=PÜO+BAK28 :: DISPLAY ATC23,22)8IZE | 
"  CAIBEEP USING "AHhaah" PO ELSE CALL SOUNDE-100, 118,09: : GOTO 459 | 

. 699 CALL COLORCHLO,23:: GOTO 488 : @ 
 ?7ad IROUTINE FUER TITELBILD | 2 
71a SB STEXTCZ.UMS:: IF LENCHM)>3Q THEN SUBEKIT +‘) 
' 72a GeINTC32-LENCUNIIZ+HL :ı FOR Axel TO LENCHMIFEI-I :: SS@SEGECH.AX-AHL,LI:: F, 

- & 
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OR AZ=31 TO AX STEP -1 tape! 
ED" GSALL HEHARK ZZ, AZ#+L, 32): CRLL HCHRARSZ, AZ, ASCESMI >: NEXT AZ :ı NEXT AK SUB | 


we -Fm 
2 ann EB 
a in ee Et 
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25>B8 DATA T12BSEH2B00ROSFAAFAAB-04CC03B-040C03B-04CC03B-04CCOBFARFAAFARAOACHCHDF | 





| Ye: 
Be 1 ’ br 
ı @ ı FO3GBBFAAB-04CCOBFAAFAA ® = 
| ı 2568 DATA 17,93,8,2,17,98,-1,4,16,198,-8,12,16,112,-7,19,19,116,-9,21,15,122,-11 | “ 
I® | ‚25,14,127,-13,29,14,138,-15,33,19,142, 17, 37,193,153,-17,37,12,163,-28,39,12,176 ,@ 
| i ‚28,539 | | 
' 2578: DATA 11,11,10,18,9,9,8,9,7,7,6,6 F 
© ı 2598 DATA 8297078bAF3a77FDB.FDBBAFSTCIETFCTE ‚ABEBEBBAFBECFEDB ,BFDDFCESCHET3FBE ‚88 5 
 BBa2arFıFarrFFF,FFBFaFTZFTF7CTOBG ‚BBaB4BFaFarCFEFF ‚FFFDFCFEFE3EBERR | = 
a | 2398 DATA a189a71E3FF7FBI7 ,3F67C3ETFF718888 ‚ABEBEBFOBBFEFCEE ‚DFECFCESCSETSFBE,BO | u 
\ BBB1BFaFFFFFaF ‚aFTFFFFFT7iOBBRBB, DBBB4OFBFSFAFCFE ‚FFFOFCFEFETEECHB ze 
' 2688 DATA 828787aFıDiFar77 ‚FB373F67C3ETFC7E,BBCBEBTSFCEFDFEC,FCESCHETFFSEBABB, ER | = 
® | saa2eFiFiFarTr,FFaFaFTFTF?E3BRR ‚BBRBBBFRFCFFFFFC,FCFEFFFFBEBABBBB : @ Ar: 
2618 DATA B3AT1Ca1TFFCsiar, SDDEFFFFEIFETFO7 „CBEBBBBCFESFBEFC ‚B6SBFFFFOIAFFEEB, a8 ' Er 
„ | 187eDiraEiger, iF363F2F331EB 7008 ‚BOBBEBRAFBTCISFR ‚FASCFCFECC73EBBR a 


B8688681638181 .8387839166868BB86 ‚BäBBBBBBBaCcHBaB®e, cBcacBBasdagaaae 
2638 DATA B88BBBBB8eadle A =#8:1-1:12 7212121212121: 1= 121-9 = 121212 1°12127215721:121-7-Teic SsaBBagsagadegage, 2a '@ 
BBBBBBERBEKRRI ‚BuBsnanaaaaeee BnaBaaundeRanneg ‚BaBuagBRanBaadRR \ 


2528 DATA 98908183970F05B3,078FeFBF95838B88, BBBBSACBESFERECH, EBFOFOFOABCBEBBR, 00 i E 
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2548 DATA: B1B2BF1B721BAF82, @F1B721BOF 020303 ‚Ba4BFEDS4EDEFA4B, ‚FODS4EDEFEABCACH € se in 
'B1aTBF ANDFO782,B7BFAABFE7ESU30B, BBBBEOFASAFEEB4A,EorassraEecacaee | “4 
2658 DATA ee ee BB, 
'aasanas1oad1e4, 8381B1aaaaaBaaaa ‚BadBadndancasasß, ceBaseseeenesaen N 
26690 DATA ‚O8BaBB9889818381, B1BE0BLBRBREBERD ‚Bununnnnaenacase ‚aanansnnannanne ‚as } 
 BBBBBdagann1sı ‚BusnaudeauagEnun ‚Basgnnananaasaae ‚nesspnuannangeee N 
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area Data SEE enn umdteenaecnn Geresrarlange immun! _ 
Im: Sa22080u24014N .80Bh200231844928, 8210852052 a N 
2718. DATA BORBZAHBER24BB4B Baanza RER IE 
 Beooenens43048 ‚endazasenosennne BeneRnBBaBae4 BB Zar — 
. 2728 DATA FOBBB@BABBSArhaB, 8800810104019080 ‚Bo01e1BB69394988 ‚Baaupsps1anıanan, = - 
Sr: ZBBAANZCaAZANB ‚BBBBEE4ERBEEBBHB, eBBbndz22Aic14uR, ‚BBBRAERAAEEZBEBB. Fi ee 


= 
5 
“ 
a 
a, zrae DATA BBSBBBABBZAZAIEH, 9848 249.040002B ‚ssasasasasusaas oennnnnnenseene 
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ar. 





er ar Tnk, N 
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vn 2748 DATA cOCDEB6ESBSR1218 ,BCHcB60603030181 ‚290902 gBa4aaan ‚Basuensecacaense.n1 | 


Ag I 
 B1e1a131d19191 ,a181g1a1L0gau0090,FOrBnläcacHarers ,FeEssEseBE rer —o— SS BR, 
AR ‚arsa DATA FFAB4OTBARENTERR, BOBBF2ABAAT2A24B ,DS243ENSASAAAA4BB, OoGBBBaRzBeBEEBR.FF 
ABBa1TSLATATAB BBDBRBEHBAAZERGR, FFB9BBS767444788 ‚207O2EABRERZREBE ira 198 he 
2760 DATA A101B303E767aFBF ‚1FIFSEBETCTOFEF,FAFAFBFAFFFFFFFF, FTETFaFBFAFAFBE,FO. | 
_ FEFBFSFCFGFEFE ‚FFDFCFOFOTOTOSDS ,OTBFIFSFTBTEB3FIF, BFBTBBBOFFFFFFEF TE 
ar7a DAIa FFFFFFFFOGBAFRFF, ‚FFEFBBBBFFFEFREE ‚EFFEFFFFO@BBBBCB,eerorereraescrer ae | =) 


u = 


. 


male 


‚ = 
»# 
= i 1 
5 rn. 
27T 


u: 


SBEBFIFBTFaFIR, AFSFTFFEFAESCHER, BETCFEFÄEOCHERGB ‚AuSacHERFaraTcEE 
2788. Data 2C4239A1A193423C, Beuagaesenengean, 1111111119191019 ‚Baanonaannannenn, Er 
ZA2427E4SA2HET, EEEEESBEESEREEESTGIB JESASBIERZB232IE  aanaBaaaaaBaaadd 3 
=758 DATA, TEFFEOCHCHCAEBFF , TFOBBBBBOBABFFTF ‚FFFFABBBABBBRECI, ‚EBEIEBGaBSESESC1, ‚FF 
|FFOBBBBBguBEF8 ‚FESCACACHCICFEFB, SFEFEBESSBEBEBSB, SOBBGsasBERrarRas | 
2308 DATA. FFFFEBABDRBHBHTC, FEBGOETEFECBFETC ‚FFFFEIGERGBBESS ,2720303039399838,D8 
DE1E12300093813, 1818181818131918, FEFFBBBBTEFFEBCH.EBFETFOTOSBTFFTE 

28318 RESTORE 2588 

2828 FOR I=8 TO 141:REAb C#$: FOR Kae TO T:VFOKE SFT+HK+EHISAB,VALL"SHO"+HIDFICH, 2#+ 
K+1,233 :NEKT K,I:RETURN 

28330 RESTORE 2728 

2848 FOR 1=188 TO 255:REAb C$:FOR K=B 16 7:NPCKE B#I+K+EH3888,YVALC"EHB"+MIDSICH, 
ZaK+l 23) :NEHT K.I:RETURN 

2858 DATA FFOAFFBBFFERFFFF ‚BB00FFFFOdAHAAFF ‚FFFFOSBBBBAGFFFF, FFFFOBBBBBBBÄEFF ‚FF 
FFEFFFFFOBBGBA, HonhaaaarFFEFFFF ,FFFFFFFFEBOBABSE 

2868 DATA BOadBABBBArFFFFFF, FFFFFFFFFFFFFFOS, 5969098860908998 ,988998FFFFFFFFFF.FF 
FFFFFFFFFFFFFF, 302324242828E0C9, ICE43C2424E4DC18, 185439EE39541808 

2878 DATA 3C4299A1A199422C ‚HBE98951F1212500 ‚BHBD4BCERE2ICEBB , BB9BASEASCHAEAAN, 88 
| SHBBERECHBEBRH 

“ z3B0 brATA B0bBBBBsB8900, Faaker, Babel, zuerst er 

cs102040931388, 4aAd4EHSI0936U8B, 182 40088B293B08 - " 

8; 2838 DATA 1820484049291688 , 4820191010294909 , 20A87e287BA32288, as2gJ20Fr329220009, 20, a Be 
Haaren, PEBLLEERSEREREBERSRERERLSERGEESESEESREREEEERESeSRTetetetete) | 


© | 2908 DATA H030484842493006 ‚8R10381R10103800 ,9830499819207800 ‚AaFanssnasaegann ‚we 
| . 4443 TBB8Bähe 7er, 003a4er7h443e, Barrel 
23419 DATA BA3B483B4H4E3008  BN39484R32AB30UG ‚HBAHZARARA2ERIU 99a, 1 
2Bsdchsh3Rlede ‚HuderFsedreaeduee ‚Cause, 7993919 
>928 DATA BBFSSOFBOAGAFBAB , HOBBEARAZBZARAGG ‚00090089332923989 ,503935389F9898980, 28 
51813929320938 ‚BBBBABCA20252088 ,FS3a30F 620983000, TEss39BseagE7ase 
2338 DATA BaFaaasirF1s18186 ‚B88909272724E7EB ,0019199199199989 , BHF4B4F71414F408 ‚00 
ZABB2EAAAEABBS , BBBBBBERCBEHELIB, BACECEABFHIEed, Tassen 
27 2940 DATA SBFasB83Ba93F39d, 09103589393929389 ,BB8000BSBB1HB9AB 

>»9=4 DATA BBHOHAEDIFIFSFFF  BB9BBBBRCBEIETFF ‚990098099RC 1EIFF ‚Bc3ETETEFFFFFFFF BB | 
16% BEBBBBSHAFSFCFF ‚OABEBFAFAFTFFFFF ‚a86B002dC8E 1FFFF ‚BBBAB97aFBFerFCFF | Bi: 
|. 2988 bntm B4aDAFaFaF3FTFFF ‚OBS0CGEBFBFOFEFF ‚Bedandesananaune ‚Bngaasaasıgaarar 1a ı U 
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LOSCTFFFFFFFFF ‚BRBBB0HBEBCACBER  HuBBHAAHRBABecd, 2a Kiez 
“ ' 2978 DATA HHBBBBBBELBFLTERF ‚d8848CBEBFIFIFFF ‚d0oaadadaaaacate, gepeadabdaaaa3srr ‚ds, q 





BTAFAFSF3FTEFF ‚BOROCHEBEAFBFÄFF ‚JandbandneABsann , 482BRBR0AHahE50n | 
he 2989 DATA ABBHLCIEZEIFTFFF ‚BB@BRBICHEFFFFFF ,2U327777FTFFFFFFF ‚BBBBEOCBEBFOFSFO DB | 0 7 
ip BBaadaamaeeee Bari äarTrTrrreFeF .BB84183CTCFFFFFFF ‚aßF8FCFCFEFFFFFF .. fi . 
| ‚ 2999 DATA BOBGBBBBAHBEERFE, 1B29506920297809, 2848006090996988, 29400898989968894, 58 . = 
| Adadnabasaguae,2u50acans9eegg ,0r707uu7uhere,906asbeeere a 
| 1.2068 DATA SACaEBEHFAFEFEFF ‚BBABuBRAHAHBABEL, Banana 34eaheseehelt,n : | 
| ' 3894AB5BA23008  20669029202026098 ‚8550244897049 2450, SERLELFEREETETSTel: u 
a, 3818 DATA EÖFSFFFFFFFEFFFF,8B81C9ETFFFFFFFF ‚088881030 787a79F, Saaga1a3ararTarear,TF ie | 

ı \FFFFEEFFFFEFFFF, BCBEGFFFFFEFFFFF ‚O0B0BA193CFEFEFF ‚Sondaanendndsang 
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3928 DiTA EOcluEarörarrfrFrFrFf ,B08495393378FCcFE , E959C3E3E7FFFFFFf,B099502935Farsröo,rFrF 
FFFFFFORBBBEOB , 8312204080288909 , FCABAgEBZEZE2308 , 3348304543300 7 

29358 hAatTA FiAFFFFEFFFFFFFFF  „EBESFBFSFFFEFFFF ‚SESssscbEaFofFerf,FFFESESEERGEE, de 
5955323205508, FFFFFFFFFFFFOBSG , COGO lachte, BFarfdrFarforFerörß 

3949 DATA S8850C8EBFEAFEFFFF ,FFTF3aFSFETO3BEFF ;,FFFFFFFFFFFFTFÄIF , 112 2#468 112243452 
442211834422 11 ,FETC3S 10808 BB, BkadaeaittleetcFE , SacBEdFBEHCHehhe 

39358 DATA Beasaahaal3ilTärF ‚BB8d3878FCFEFEFF ‚BösdssadadsarfirFar  „BaFsroFFFFFEFFFF ,@F 
SFFFFFFFFFFFFF 

3isdb RESTÜRE 2358 

70 FöR I=ı TO 28:REAb C:FöR K=e8 To FT:YVPrökE Bul-+k  VALC"SH"+MIDRiCH  24K+L,2) > :NE 
“KTK;I 

5358 FOR 1I=33 TO BZ:READb G:FOR K=sB TO 7:VYPOKE S#lrk VÄALT"EH'"+MIDICCT. ZH FL, ZI I EN 
E#T K,I:RETURN 

=A35B FOR l=ai28 To Z12:REAb G:FOR Ked To 7:VFOKE Sr) +k,YALC"SH"+MIDFKCCH Z4K + 1,23) 
'NEAT K,TiRETURN 

=1858 FOR I=8 TO 18:30UND I,0:HEKT 

3118 SCREEN 8,8, 1:C9.L0R 15,4,4 

3128 STOP:END 

3138 FOR I=8 TO 18:50UHD 1,8:NE#T 

3148 SCREEH B,08,1:COL0R 15,4,4 

3158 FRINT "In Zeile ";ERL;" trat folgender" :PFRINT "Fehler auf :":ERROR ERR 


DER „DATEN-TRÄGER* or 
DES MONATS: ihre 


„Was die Leute an 
so alles anstellen, N 
um an meine 0000 %0 


. TRONIC-SOFTWARE | 


5 zu kommen!“ 


„HOME- 
COMPUTER“ 8 3 
MACHT’S FÜR , ON: 
JEDEN LEICHTER UND „BILLIGER“ 
MEHR DARÜBER: S. 2 UND S. 78/79 
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Ein interessanter Sach-Comie © 2225 
gleichsam für den „Beginner“ =: 
wie auch für den „Fachmann“ 

Im Rahmen der „Anfänger-Serie* von rororo ist nun auch 
„Computer für Anfänger“ erschienen. Es handelt sich um ein 


Buch, das sowohl mit lustigen Karikaturen aufwartet und 
gleichzeitig durch die profunden Sachkenntnisse des Autoren- 


In einer überaus witzigen Weise wird 
dem Leser die Entwicklung hin zum 
Computer deutlich gemacht, das „In- 
nenleben“ der „Maschine“ hervorra- 
eend erläutert und die Fachterminologie 
erklärt. Aber auch die - positiv zu be- 
wertende -— Kritik an der neuen Technik 
und den — potentiellen — Folgen darf 
nicht fehlen. 

Die Autoren fragen: „Die Computerre- 
volution ist über uns hereingebrochen. 
Zumindest tun die Industrie und Mei- 
nungsmacher so, als käme keiner mehr 
ohne die Dinger aus. Was ist wirklich 
dran an diesen ‚Denkmaschinen”” 
Computer für Anfänger beschreibt 
Schritt für Schritt, wie Computer arbei- 
ten und wie sie eingeselz1 werden in 
Wissenschaft, Wirtschaft, Industrie, zu 
Hause und bei den „Spielchen der Mili- 
tärs“. Es befaßt sich auch mit den Folgen 
des Computereinsalzes und geht der 
Frage nach, was dabei aus dem mensch- 
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lichen Selbstverständnis wird. Und es 
erzählt einiges darüber, was man mit 
Computerei Nützliches anfangen kann. 
Computer für Anfänger ist erstaunlich 
„detailgetreu“, Man merkı den Autoren 
eine gewisse Begeisterung für das „neue 
Medium Computer an. Fachkenntnisse 
„treten“ besonders bei den Erläuterun- 
sen der Arbeitsweise und des 1echni- 
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schen Aufbaus des Computers zutage. 
Fazit: „Gut” zu lesen, leicht verständ- 
lich, sachlich, hervorragende illustratio- 
nen, kurz: ein Buch, das man lesen sollte. 
Empfehlenswert. 

„Computer für Anfänger“ ist bei Roh- 
wohlt erschienen. Es ist ein „rororo- 
Sachbuch“, Nummer 7550, und es kostet 
9,80 Mark. (M. K.) 
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Die kleinen MIKROS ganz groß 


Allzeit bereit: Ein verläßlicher Ratgeber für Einsteiger und 


Fortgeschrittene. Themenschwerpunkt: Taschencomputer/Hand-helds 


„Die kleinen Mikros ganz groß" ist ein 
Buch, welches Ihnen die Kleinen unter 
den Mikrocomputern vorstellt. Compu- 
ter, die das Prädikat „tragbar“ wirklich 
verdienen, weil man sie — auch „Hand- 
helds“ genannt — leicht überall mitneh- 
men kann. 

Dieses Buch sagt Ihnen in klarer, ver- 
ständlicher Sprache, was Sie über diese 
moderne Arı von Computern wissen 
sollten: 

®= Wie man sie einselzi 

® \as sie leisten 

“© Woraufman beim Kauf'achten muß 


Das insgesamt 330 Seiten starke Buch 
beschreibt in acht Kapıteln -— mıt „tau- 
senden“ von Unterkapiteln — in einer 
kaum zu überbietenden Informations- 
fülle, verständlich für jedermann. sehr 
ausführlich Funktion, Wesen und Ar- 
beilsweisen der „Kleinen“, die ganz 
„Große“ sind. 


Dieses Werk ist auch - oder gerade” - für 


den Einsteiger sehr interessant. Denn: 
Jeder Punkt, der den Computer betrifft, 
wird angesprochen. Ja, „jede Tasıe* 
wird ausführlich „unter die Lupe ge- 
nommen“. Eın Plus für denjenigen. der 
als Starter in das neue Medium einstiei- 
gen möchte. Hier kommt nichts zu kurz; 
der Autor versteht es, genauestens zu 
informieren, 


Die HÖÜMECOMPUTER-Redaktıon 
meint, ein Standard-Werk, das sowohl 
vom Anfänger als auch vom Profi ge- 
nutzi werden sollte! 


„Die kleinen Mikros ganz groß" von 
Klaus Pellinka ist erschienen bei Heyne, 
in der Reihe „Heyne-Computerbücher”, 
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Interessante PENGUIN-Bücher 
Für alle, die „etwas anderes“ lesen und lernen möchten ... 

Der bekannte und berühmte britische PEN- 

GUIN-Taschenbuchverlag bietet nun auch 

Computer-Lektüre (in Eng- 


lisch'!) an, die sich eiwas von der der deut- 
schen unterscheidet. 
Heben den Standardwerken Wie Young 


Copeland’s „Penguin 
Book Of Commodore 
64 Games“ (zirka 15 
Mark) oder Mole’Fox's' 
„Sinclair User Book Of 
Games And Programs 
For The Spectrum” 
(zirka 15 Mark) werden 
auch Software zu Stu- 
dienzwecken Angeho- 
ten. Eine Kasselle und 
ein Begleiibuch erütt- 
nen Ihnen den Zugang 
zu Dramen und Koma- 
nen aus dem Bereich 
der „Klassiker“. 

Für den „Spectrum" 
reicht das Angebat von 
Macbeih über Romeo 
und Julia: bis hın zu 
Anımal Farm (Preis 
Buch und Kassette zir- 
ka 4) Mark). 

Für den Commodore 
54 ist eine ähnlich 
breitgefücherte Ange- 
boispalette vorhanden. 
Hier kann man zusätz- 
lich auch mit dem „Stu- 
dy Software” Chemie 
oder Physik „erlernen“ 
(Buch und zweı Kassel- 
ten: zirka 70 Mark). 
Wie Ste an dıe Bücher 
rankommen” Ganz ein- 
fach: Fragen Sie bei Ih- 
rem Buchhändler nach 
den „Penpuins“, Er 
wird Ihnen gern durch 


Band 14. Kostenpunkt: 12,80 DM. ‚ Beratung  weiterhel- 
(M.K.) ion. (M.K.) 
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[hie abeedruckte Routinenst vorallem 
dazu gedacht, daß Sie Sie In eigene Pro- 
eramme einbinden können. Sie erzeugt 
nämlich erme deutsche Tastatur auf dem 
Cd, und das aufsehr schnelle Wi 
die Verschieberoutinen vollständige ın 
Maschinensprache geschrieben 'sınd 
Zudem bleiben alle ASCH-Codes in ih- 
rer normalen Form erhalten, so daß z. B. 
die READY,-Meldung auch als solche 
erhalten bleibt und nicht in ein REABZ. 
verwandelt wird, wie es bei vielen Rou- 
tinen dieser Art passiert. 

Foleende Änderungen werden vorge- 
nommen: 

-Y und Z tauschen ihren Platz 

- + wird zu B 

- : wird zu ö (shift : wird zu Ö) 


sc, Gi 


Deutscher Zeichensatz 


-: wird zu (shift ; wird zu A} 

- a wird zu il (shift a wird zu Ü) 

Die alte Tastenbelegung (zumindest die 
Grundbeleeung) wird dann in YWerbin- 
dung mit der CTRL-Taste erreicht 
(z. B.; : mit CTRL: oder. ; mit CTKL: 
USW, 

Sie werden vielleicht fragen, wozu man 
dien ganzen Aufwand betreiben soll. aber 
spätestens, wenn Sie Textverarbeitun- 
gen oder Dateiprogramme schreiben 
wollen, werden Sie bemerken, wie 
schmerzlich man das „B* und Umlaute 
vermißt. Und hier soll diese Routine 
einspringen, als Unterroutine ın eigene 
Programme eingebunden, schafli sıe 
hier schnell und perfekt Abhulie. 
Wichtig: Es ist unbedingt zu beachten, 


DEUTSCHER ZEICHENSATz 
DIESES FROGRAMM SIMULIERT EINE DEUTSCHE TASTATUR UND EINEN DEUT- 


SCHEN ZEIEHENSATZ AUF DEM C&4. 
DIE LMLAUTE DORTHIN GELEGT, 


LIEGEN. 


Z UND Y 
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“Ar 


ic ern: EHRE (ATI HEHRELLTIG" 


GOSUB1OOOO: EYSSOo 175 


POKESO170 , 724: POKESO0174 ,O:FOKESO178 ,0:5Y55017& 
POKESO0178,51: POKESO170 , 218: FOKESO0174 ‚224: POKES0178, 208: 57550175 
GOSUB10100:POKEI, 53: POKE&AGB2, S3:POKES4B, 172: POKES3272,0:POKES35574,148 
PRINTCHRE (147); CHRE (14); EHR#(B) 

FOKE&A0301 ,87:FOKE50314 ‚90: POKE&OSEI „SB: FOKEAUSSS „59 


FOKES058?2 „64: POKE505765 „43: POKES0F34,, 169: POKEAO3FF „127 


daß das Programm den VIC-Chip im 
64er veranlaßt, auf das letzte Speicher- 
viertel zuzugreifen, was zur Folge hat, 
daß sich Videoram und Spritevektoren 
mitverschieben. Um: sie zu adressieren 
muß zu ihrer normalen Adresse die 
Konstante 4915? addiert werden. Au- 
Rerdem bewirkt diese, daß der Compu- 
ter bei Beiäligen der Tastenkombina- 
tion STOP/RESTORE „abstürzt” (ein 
RESET oder kurzzeitiges Ausschalten 
erwecken ihn wieder zum Leben). ES 
empfiehlt sich also, die RUN/STOP- 
Taste mit POÖRE505.251 abzuschalten. 
Diese wurde vom Autor nicht in die 
Routine eingebaut, weil dieser PÖRE 
zugleich ein LIST-Schutz ist, ein derarti- 
ser Effekt ist nicht immer erwünscht, 


“4% 


WERTAUSCHT, SOWIE 


WO SIE 7.B.AUF EINER SCHREIBMÄSCHINE 
DIE NORMALE BELEGUNG DER UMGEAENDERTEN TASTEN WIRD DANN 
. IN VERBINDUNG MIT DER <CIRL>-TASTE ERREICHT. 


EINEN MOMENT BITTE !!!" 


??0 FOKE&O33I, 186: POKES50404 , 172: POKE50335, 188: FOKESO400 „187 
Ö FOKEZ0329,170:PDKE550, 255 
— #EICHENSATZ GEFNDERT — FLY"! 


PRINTCHRE IL FIG "FI m 


0 END 


10000 
10010 
10030 
10040 
10098 : 

1009797 ı 

10100 REM ### 
10110 
10120 
10130 
10140 
19150 
10140 
16170 
10180 
10170 
19195 


10177 RETURN 


NEUE ZEICHENMUSTER 
DATALOS ,000,102,050,006,042,102,062,000 
DATAO95, 102,060, 102, 175,102,102,102,000 
DATAL22, 000, 102, 000,060, 102, 102,060,000 
DATA108,102,060,102,102,102,102,060,000 
DATA1?4,000,102,000,102,102,107,052,000 
DATAL23,102,000,102, 102, 
DATA126..060. 102, 102,124,102,102, 108,096 
SU=0: FORI=1TO7:READC: SU-SU+E 

FORT=0TOF: READA: SU=SU+A: POKES1P00+C#5+T „A: FOKES2224+C#B+T „255-A:NERTT,T 
IFSUS>4F7B8STHENFRINT"FEHLER IN DATAS ! 11: STOP 


REM MASCHINEN - ROUTINE + 
DATA120,189,55,133,1,169,0,133,95,133,90,133,88,169,160,133,96,169,192 
DATA133,71,169,192,133,89,32,191,163,169,55,133,1,89,7& 
SU=-0:FORI=50175T050209: READA: SU=SU+A: POKEI „A:NEAT 
IFSU<>SITSTHENPRINT"FEHLER IN DATAS !",STOor 


ae; 


102,102, 060, ‚000 








Nun ist es raus: Toshiba hat ’nen neuen MSX: 


Japanischer HX-22 
wıll Markt erobern 


per Extended“ (MSX) verfügt desweite- Der Video-RAM und die qualitative 








Toshiba ist die erste der großen japanı- 


schen Elektronik-Firmen, die die zweite 
Generation der „MSX-Microcomputer” 
aus der Taufe heben. 

Klar, daß auch dıe anderen Hersieller 
bald nachziehen werden, Doch: Toshiba 
hat mit den neuen Geräten FIX-22 und 
FHX-23 dıe Nase momentan vorn. VWor- 
aussichtlich im Herbst dieses Jahres 
wird der HX-22 auf dem Markt sein. 
Über den Kostenpunkt dieses interes- 
santen Micros hüllt man sıch noch ın 
Schweigen. Insider rechnen aber mıt cı- 
nem Preis, der bei ungefähr 1200 Mark 
liegen soll. 

Der neue HX-22 verfügt über einen S0k- 
RAM, der sich aus einem 64K und cı- 
nem 16K Disc-RAM zusammensetzt. 
Der Festspeicher ROM „bietet“ 32K 
mit MSX-Basic. Der „Rest” unterteilt 
sich in einen eingebauten Word Proces- 
sor, BASIC-Controlling und dem RS 
232 Interface. Der neue „Microsoft Su- 


ren über ecınen ROB Ouiput und Stereo- 
Sound. Der andere „Neue“, der HX-23, 
ist im Prinzip ebenso aufgebaut wie der 
HX-22. Zusätzlich verfügt er aber über 
einen 125 K Video-RAM. 

Dieses Modell ist noch nicht für den 
Markt freigegeben. Mit der Einführung 
des HX-23 wird im kommenden Jahr 
gerechnet. 
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Verbesserung der Grafik-Möglichkeiten 
ist eine typische MSX-Entwicklung, Die 
Japaner sind (wieder einmal”) der Kon- 
kurrenz davongeeilt. Diese technische 
Innovation wird auch andere Firmen 
„zwingen“, sobald als möglich mitzuzic- 
hen. (M.K.) 
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ER HAT’S VERSCHLAFEN: 


„Hättest Du gleich den 
HOMECOMPUTER 
abonniert, dann 
bräuchtest Du jetzt 
nicht so deppert 


’dreinzuschauen!“ 
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Programm te Bestell-Nr. 
Alien-Destroyer Reactor Al | 
| EEE Concentralion 17,50 23,30 HC/C-1 
Datenbank | 
Warlords AS: 
Caverns of Death 14,50 19,50 HE/C-2 
Alien-Desiroyer 
Duell 24,50 2950 HCC-3 
Ocean Game 17,50. 23,50 
Tennis HC/EC-4 
The Caves 17,50 23,50 HC/C-5 
Labyrinth 
Data-Generator - 19,50 HCA-I 
Maskengeneralor 
Suchsel 
Hello = 19,50 HE/A-2 
AsSC II-Dumper 
Knobeln 
Missilie Attack = 19,50 HE/A-3 
Tyros a 14,50 HU/A-4 
Point Eater - 14,50 HÜA-5 
Atari 
Atlantis Manice | 
ai Fünf gewinnt 14,50 19,50 HC/I-1 
Atlantıs | 
Cosmische Arche 14,50 19,50 HC/T-2 
I a Castle of Confusion ! 
a Magic Fire 14,50 1958 Se 
N Sprinter '84 "14,50 19,50 HC/I-4 
Montezumas Rache 14.50 19,50 HC/1-3 
Schneider CPC-464 
Fallschirmspringer g- _ HC/SR-3 F 
Geisterschloß g,- - HC/SR-4 
Zeichen-Designer 12,50 - HCSR-5 
Solaris g,- - HC/M-4 
Rabbit walk 0000 11,50 2 HC/M-3 
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Programm DM/Kassette DM/Diskette Bestell-Nr. 
Zyklo 
Geldsammiler Alle 11,50 - HE/V-1 
Star Wars 
Punktefresser N N HC/V-2 


Catch ihe Fish 
Mister Jump en ERBH JUNE ED) ER IEEEIERVES 


Ghosis' Eggs 





Fox-Hunt 14,5U _ HE/YV-4 
Breakou | 
Collector 14.50 _ HO/V-5 
11-99 ln 
Lultkampf' 14,50 19,50 HCY/T-1 
Lift-Bär | Blue-Bups Doz; 
| Perlentaucher | 14.50 19,50 HC/T-2 

Coal-Miner 

Meteor 17,50 23,50 HC/T-3 

Infra 


Santa Maria 





Tarzan 14,50 19,50 HC/T-4 
Moonlander | 





Billard 14.50 19,50 HCT-53 





/X-Spectrum 




















Plong 13,30 _ HC/S-1 
Millie, die Milbe Plön = Sy 11 SminaABRNLEL NET Sale ne ERERETNERT EN RA 
z | U-Jäger Hm, 
Ritter Kunibert 14,50 B= HC/S=2 
Mad Space | 
Milli, die Milbe AN = REIHE 
Mr, Pacman 
Pooyan 14,50 = HC/S-4 
Wheely 13,50 EI: HC/S-5 
Space-Fire 0 = HC/Z-2 
Steinschlag a £ r LU,- = HÜZ-3 
Cave-Flighi 0,- Ex HC/Z-4 
Byie-Suchaktion L0.- - HC/Z-3 
Businesserafik Ä j 14.- = HC/D-? 
Senso I0.- - HC'D-3 
Smiley 10. = HC'D-4 
Datagen 3.- - HCD-5 
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} a" Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
q nn ist E eben nt + Memony me jems!" 





rb [beitung - Sue Vers Farbbänder BE arbb; Yand- 
Kkas set! ter und S peziz alreinigung: smittel 
Kan omiß ist R I, zisil ko. Zweite Wahl is Ist Unsicherheit — deshalb: 


verlangen Sieb lephant Memory Systems! 
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